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CREATING YOUR OWN 


VENTURE 
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y would intelligent people 
(such as you and I!) with ac- 
cess to massive amounts of 
computer power which could 
be doing something useful, want to bring 
their brainpower to bear on the problems 
of creating and exploring mythical land- 
scapes? When your computer could be 
earning its keep telling you your cheque 
account is overdrawn, why are you forcing 
it to control a game in which you battle 
fierce monsters in labyrinthine caverns, 
invoke magic spells, and uncover vast 
hordes of elven gold? 

The answer is obvious. Using your com- 
puter for serious things all the time is just 
plain boring. Trekking across alien land- 
scapes, chopping up people with broad- 
swords or axes and haggling with quasi- 
humanoid creatures in off-world taverns 
seems to many people a much better way 
to spend their time and their computer 
power. 

But, if you decide you want to write your 
own adventure programs, instead of just 
playing commercial software adventures, 
you suddenly come up against one stub- 
~ born fact. If your adventure is going to be 
even half-way decent, an awful lot of 
meticulous programming is required to 
make the thing work. 

That's where this article comes in. 

The adventure shell is a sort of empty 
bucket into which you can pour your own 
imagination. The shell handles all the bor- 
ing (but vital) bits, such as: 

@ Accepting the player’s input and inter- 
preting it. 

@ Acting on commands. 

@ Invoking monsters, getting them to 
fight you, deciding who has won a battle. 
@ Keeping track of whether or not the 
player is carrying a weapon or weapons, 
and the effect this can have on the out- 
come of a fight with a monster. 

® Controlling movement around the ad- 
venture environment (whether it be inside 
the new Parliament House in Canberra, or 
in an underground tunnel below Ayer’s 
Rock). 


Adventure Shell 


If you've ever wanted to 
write your own adventure 
programs, but have been 
discouraged by the 
amount of programming 
involved, take heart. In 
this article, Tim Hartnell 
gives you an empty 
‘adventure shell’, which 
you can use as the 
framework for an infinite 
number of totally original 
adventures. 


W@ Picking up and dropping treasure, and 
keeping track of what the player is carrying 
and how much it is worth. 

The program will do all this, so you can 
Save your energy to do such things as en- 
tering the PRINT statements which de- 
scribe the adventure locations, the names 
of monsters, the kind of treasure and 
weapons hidden in various places within 
the adventure environment, and so on. 

The shell is very flexible in its handling 
of player input. You can easily modify it to 
understand words which I have not ca- 
tered for. As well, if you want a particular 
condition to be satisfied before the adven- 
ture can end (such as reaching a certain 
location, slaying a certain number of mon- 
sters, finding a certain number, or speci- 
fied value, of treasured objects), it is ex- 
tremely easy to include this. 

Now, I'll not pretend you can just type 
the program in, play with it for an hour or 


so, and end up with a commercial-stand- 
ard adventure. A fair degree of concentra- 
tion is required to make sure you create a 
world which is geographically consistent, so 
the player can — even though it may take 
a great deal of effort — map your adven- 
ture world, and find that next time the 
world is visited, it still conforms to the 
map. 

Map-making is one of the adventure 
player's skills and delights. To produce an 
adventure which is satisfying to play, your 
map must be consistent. The adventure 
shell looks after the map control, to en- 
sure this consistency. 


Using the Program 

First of all, of course, you have to type the 
thing into your computer. In its present 
form, with lots and lots of REM state- 
ments, it occupies just under 13 Kbytes on 
my IBM PC, so it is likely to take around 
the same amount of space on your ma- 
chine, whatever make it happens to be. 

The REM statements are in this pro- 
gram for two reasons. The first is, naturally 
enough, to guide you through the pro- 
gram, so you know what each bit does. The 
second role is to ‘make space’ for you to 
add your own material. To see this, look at 
the lines from 860, and around 2700, in 
the listing. These allow you to get the 
shell to recognise additional words from 
the player input which have not been pro- 
vided by the original program (although 
the shell, as it is, recognises all the impor- 
tant ones, controlling movement, fighting, 
and picking up and dropping objects). 

Similarly, the REM statements from 
3130 make space for you to put your de- 
scriptions of the adventure locations, or 
‘rooms’, in which all the action takes 
place. 

Therefore, | suggest you enter it just as 
it is, REMs and all, and save it in that 
form. Then all you have to do is load in the 
original shell whenever you wish to create 
a new adventure. Many of the REM state- 
ments are not referenced by GOTOs or 
GOSUBs, so they can be deleted from your» 
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final version of a particular adventure. 

It might be worth getting your user club 
to make the shell available to members, to 
save everyone in the club having to type a 
copy in for their own use. The program can 
— either in its ‘empty’ form, or when 
changed into an adventure — be added 
freely to public domain collections. If you 
like, you can even sell programs produced 
using it. Although there will be no royalty 
payable on this, we would appreciate a 
mention that the shell was used, and that 
it came from Your Computer magazine, in 
the listing and/or documentation. 

So, get the program into your computer, 
and then come back to this article to find 
out how to use it. 


The Map 

The first step in building an adventure 
program is to construct an environment 
which can be both mapped and repre- 
sented in some way which the computer 
can store. You'll be pleased to know it is 
relatively easy to satisfy both these condi- 
tions. 

Look at the five-room environment 
(map one). This is a very simple one, 
which we will treat as if it were an adven- 
ture environment. 

The key to holding an environment like 


this in a way your computer can under- — 


stand and manipulate is to set up an 
array, each element of which represents a 
room. The lines between rooms in dia- 
gram one are directions in which you can 
travel. 

If you were in room one, you could 
move east into room three, or south into 
room two. In room four you can move 
north into room three and south into 
room five, and so on. Imagine we have set 
up an array, dimensioned as DIM A(5,4): 
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The adventure shell is a 

sort of empty bucket into 

which you can pour your 
own imagination. The 
shell handles all the 
boring (but vital) bits. 


the first dimension is the room number, 
and the second is the four possible direc- 
tions from that room, (that is, north, 
south, east and west). 


Building a Travel Table 
Armed with the map of the five-room envi- 
ronment, we can now build up what we in 
the adventure trade call a ‘travel table’, 
which can be fed into the array, to allow us 
to move from point to point within the en- 
vironment. 

Here’s the travel table for the simple, 
five-room environment in map one: 


Take time to study this table, and the 
way it relates to the map, because it is 
probably the single most important key to 
building adventures using the shell. 

Look at the table for room one. Under 
the ‘N’ (for north) column, you'll see a 
zero, which means you can’t move north 
from room one (a fact which is easily veri- 
fied by looking at our map). However, 
under the ‘S’ we see the number two, 
meaning if we travelled south from room 
one we would end up in room two (again, 
you can verify this from the map). Move 
east (the ‘E’ column, of course) from room 
one, and you'll end up in room three. The 
zero in the ‘W’ column means there is no 
travel possible west from room one. 

You can work right through the table, if 
you like, checking the numbers on it corre- 
spond to the ‘reality’ of the map. 

Now, to allow the player to move 
around the environment, we only need to 


(a) fill each element of the array with the 
relevant information from the travel table; 
(b) tell the player where he or she is; and 
(c) allow the decisions entered by the 
player regarding the direction in which he 
or she wants to move to be checked 
against the array. Then the player's new 
location has to be recorded, ready for the 
next move. 

Using the shell, it is much easier to do 
this than you might think. In its present 
form, the shell caters for 16 rooms, and 
the DATA given (around li..> 4300 in the 
listing) is for a particular inap which we 
will look at in due course. You can easily 
add more rooms, or use less if you want to 
do so. 

We'll look at a simple program for con- 
trolling the five-room environment of map 
one, and once you see how this works, 
you'll be in a strong position to under- 
stand how to use the shell for a larger en- 
vironment. 

A simple program can be created to 
feed the relevant information from a travel 
table into an array: 


10 DIM A(5,4) 

20 FOR B=1 TO 5 
30 FOR C=1 TO 4 
40 READ A(B,C) 
50 NEXT C 

60 NEXT B 

70 DATA 0,2,3,0 
80 DATA 1,0,5,0 
90 DATA 0,4,0,1 
100 DATA 3,5,0,0 
110 DATA 4,0,0,2 


As you can see, the DATA statements 
correspond exactly to the items in our 
travel table. 

If we decide the room (or cave, or loca- 
tion) which the player is currently occupy- 
ing is to be designated by the variable RO 
(as we do in the shell), we could tell the 
player where he or she was as follows, as 
well as indicating which exits existed: 


100 PRINT “YOU ARE IN «OOM 
NUMBER" ;RO 

110 IF A(RO,1)< >0 THEN PRINT 

“A DOOR LEADS NORTH" 

120 IF A(RO,2)< >0 THEN PRINT 
“THERE IS AN EXIT TO THE SOUTH” 
130 IF A(RO,3)< >0 THEN PRINT 
“YOU CAN LEAVE VIA THE EAST EXIT" 
140 IF A(RO,4)< >0 THEN PRINT 

“A DOORWAY OPENS TO THE WEST" 


The player's input, using the shell, is in 
the form of a two-word verb/noun phrase, 
such as ‘Go north’, ‘Get diamond’ or ‘Slay 
monster’. 

There is a ‘string-parsing’ routine, which 

strips the input down to two words, and 
sets the variable CS equal to the second 
word. So the system knows if the first word 
is go, move or run, the second word must 
be the direction in which the player 
wishes to move. The shell only looks at 
the first three letters of the second word, 
as these are enough to discover the 
player's intentions. 
‘ Once the player has entered his or her 
decision, and the program has set CS 
equal to the first three letters of the direc- 
tion, the simple program we’re working on 
here could check to see if an exit existed 
in that direction: 


200 IF CS=“NOR” AND A(RO,1)=0 
THEN PRINT “YOU CANNOT MOVE 
THAT WAY" 

210 IF CS="‘SOU” AND A(RO,2)=0 
THEN PRINT “YOU CAN'T WALK 
THROUGH WALLS” 

220 IF CS=“EAS” AND A(RO,3)=0 
THEN PRINT “TRY ANOTHER 
DIRECTION” 

230 IF CS="WES” AND A(RO,4)=0 


THEN PRINT “THERE IS NO EXIT TO 


THE WEST" 


All that would be needed now would be 
a routine to go back for another input if 
the movement was not possible, and 
you'd have the bare framework of an ad- 
venture program. Of course, the shell does 
all this handling for you. 

Once a valid input for direction has 
been accepted by the program, the move- 
ment itself takes place. , 

Note, by the way, that the room num- 
bers are never referred to explicitly, as 
they are for the computer's internal con- 
sumption only. All the player reads is a 
description of the room: “You are in the 
dismal cellar, with old copies of Your Com- 
puter mouldering on the floor beside 
you...”. The description can include in- 
formation on the exits (“You see a tunnel 
leading off to the north’) or it can be left 
up to the player to find them by blunder- 
ing about. 

Back in our little five-room environ- 
ment, imagine the player was in room four 
(look at map one) and entered the com- 
mand ‘Go north’. 

The computer would proceed as fol- 
lows, once it was sure the move was a 


Adventure Shell 


Although the rooms exist 
only on paper, and as 
elements in an array, the 
fact that they behave like 
‘real rooms’ allows them to 
be perceived as though 
they were solid and real in 
a way which is uncanny. 


legal one. Firstly, the variable RO would 
equal 4 (the room the player is currently 
occupying). The computer sees the move 
wanted is ‘nor and converts that, in its 
electronic head, to | (‘sou’ would become 
2, ‘eas’ becomes 3, and ‘wes’ 4), so the 
computer knows the player is about to 
enter the room number A(RO,1). It would 
have been A(RO,2) if the player was mov- 
ing south, and so on. 

As the room the player is currently in is 
room 4 (that is, RO equals 4), the com- 
puter simply looks at A(4,1) to see where 
the player is moving. In this case, it finds 
that A(4,1) equals 3, which is where a 
player would move by travelling north 
from room 4 (check it on the map). 

The variable RO is then set equal to the 
new room, 3, and the process of moving 
through the environment continues. 


Consistency and Reality 
Although the rooms exist only on paper, 
and as elements in an array, the fact that 
they behave like ‘real rooms’ allows them 
to be perceived as though they were solid 
and real in a way which is uncanny. 

Add descriptions of each room — “You 


are in a small workman’s hut in the back- 
yard of the Lodge. By peeping through the 
door of the hut you can see the Prime 
Minister walking purposefully towards 
you. You turn around, and see a trapdoor 
in the far corner’ — and you'll find the en- 
vironment takes on quite solid dimen- 
sions in your mind. 


A Map for the Shell 

If you look at the DATA statements near 
the end of the shell listing, you'll see a 
travel table | set up which you can use for 
your first adventure, if you like. Map two 
shows the map this table is based on. As 
you can see, it is not one which can be 
easily solved. You start in room 9, and the 
end of the adventure occurs when you 
reach room 16 (which need not, of course, 
be a ‘room’, but can instead be ‘outside 
the castle’, ‘at the mouth of the cave’, ‘safe 
back in your undersea home again’, or 
whatever you choose). 

For your first practice with the shell, | 
suggest you use my map, giving the rooms 
your own names. Once you've given them 
names, you can use my treasures, and my 
monster names, and you'll instantly have 
a genuine adventure you can actually play. 

It is extremely easy to test whether your 
travel table DATA is correct. Just get into 
the adventure environment, with your 
map, and then ‘wander around it’, to en- 
sure it agrees with the map. 

So you should copy map two, and give 
names to all the rooms. Perhaps a 
‘haunted castle’ is as good an initial sce- 
nario as any other, and so the rooms can 
be called things like ‘The Great Hall’, ‘The 
Castle Treasury’, ‘The Cruel Dungeon’ and 
so on. 

Once you've written in the names of the 
rooms on your map, you need to add 
some descriptive text for each room. Just 
suppose you had called room 12 ‘The Ma- >» 


NOTES: 


NOTES: 


gician’s Quarters. 

Most of the line numbers from 3120 on 
are REM statements just waiting for your 
room descriptions to be inserted. So, we 
move through this set of numbers looking 
for the heading ‘Room Twelve’ (which is at 
line 3670). You can use any of the immedi- 
ately following lines, up to the return, for 
the description (and, of course, you can 
add lines between these in this section if 
you need more space). Then, when you 
play the adventure and you are in room 
12, the correct description will automati- 
cally be printed on the screen. 

Your description could read: 

“You find yourself in the Magician's 
Quarters, where years ago weird speils 
were concocted. Exits leave to the north, 
east and west.” 

So to this point in this article we've 
learned how to create a travel table, how 
to change it into DATA statements, and 
how to put room descriptions in the rele- 
vant positions within the shell. 

You do not yet, however, have every bit 
of knowledge you need to use the pro- 
gram. 


Attributes 

As the player, you have six ‘attributes’ — 
strength, charisma, dexterity, intelligence, 
wisdom and constitution. If any of these 
falls to zero, the adventure is over, and 
you die. 

These are gradually depleted as time 
goes on, to ensure you do not simply 
spend an endless amount of time wander- 
ing through your adventure environment. 
Your final score is related to a number of 
factors, including how strong your attri- 
butes are at the end of the game. 

Each monster you meet and fight is also 
blessed with six attributes. When you 
meet a monster, the fight begins like this: 

“Look out! There is an Embihuund 
here! What do you want to do?” 

“Fight.” 

“Fight is just one word. | need two. 
What do you want to do?” 

“Fight Embihuund.”’ 

“Your opponent is an Embihuund. The 
Embihuund’s danger level is 6. You must 
fight the Embihuund with your bare 
hands. The Embihuund has the following 
attributes: 


| — Strength 6 
2 — Charisma 15 
3 — Dexterity 11 


4 — Intelligence 13 
5 — Wisdom 12 
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6 — Constitution 11. 

Your attributes are: 

| — Strength 11 

2 — Charisma 10 

3 — Dexterity 10 

4 — Intelligence 14 

5 — Wisdom 16 

6 --— Constitution 10 

Which attributes will you fight with — 

(2)?” 

5H 

As you can see, you are asked to enter 
your choice of the two attributes with 
which you will fight. Fairly obviously, you 
should choose the ones in which you 
most exceed the monster you are facing. 
The difference between your attributes 
and those of the monster, the ‘ferocity fac- 
tor’ of the monster, and whether or not 
you are armed (with an axe, a sword, or 
both) all play a part in determining how 
well you will do in the coming battle. 


Fortunately, the shell ‘stage manages’ 
the fight for you. As the fight progresses, 
your attributes are reduced if the monster 
scores a blow against you. At the end of 
the fight, the program reports the result, 
adding to your attributes if you have won. 


Treasure and Terror 
It is very simple to distribute the treasure 
throughout the adventure environment, as 
the shell does it for you. 

If you look at the end of the listing, from 
line number 4180, you'll see that first the 
shell reads the names of the treasure and 
its value from DATA statements (and the 
two weapons, the sword and the axe, are 
given values of zero, so their worth won't 
be added to your growing fortune as you 
work your way around the environment). 
Then, with the routine from line 4210, the 
objects are distributed. 

If you don’t want a treasure in a particu- 
lar room, all you have to do is add a line 
between 4220 and 4230 which reads as fol- 
lows (where X is the number of the room 
which you want to remain without a treas- 
ure): 

4225 IF Z=X THEN 4220 

You'll see I've given you a set of sample 
treasures, which you can leave in for your 
first adventure, so you can concentrate on 
naming the rooms and getting to know: 
how the shell works. 

The monsters are distributed the same 
way, using the routine from line 4270. 
Again, if you want to ensure some of the 
rooms do not have monsters in them, a 
line to reject certain values, like the one 
used for treasure, can be inserted as line 
4305. 


The Vocabulary 
It’s fairly obvious which words the shell 


0 REM ADVENTURE SHELL 

fN) REM Kwa K KKK KKK KK KKK 
REM By Tim Hartnell 
REM Interface Publications 
REM OR OK KORO OK KOK KR OK 


GOSUB 3350:REM INITIALISE 


REM KKK KK KKK KKK KKK KKK KKK KKK 


REM REPORT TO PLAYER 
FOR Z=1 TO 1000:NEXT Z 
0d CLs 
0 IF RO-16 THEN QU=1:GOTO 2950 
REM 8 RR ROI OI IO III IOI III IOI I 


GOSUB 3060:REM ** ROOM DESCRIPTIONS ** 
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can act on at the moment. These are: 

Kill or Fight (followed by the name of a 
monster). 

Go, Move or Run (followed by a direc- 
tion, such as east), 

Get, Take or Lift (followed by the name 
of an object; you can carry up to five ob- 
jects). 

Drop, Put or Leave (followed by the 
name of an object; a room can hold up to 
three objects). 

Help (doesn’t do much good in the 
shell’s present form, but you can add 
some real help if you like). 

Quit (if you want to exit the adventure 
before getting to the end). 

If you want to add additional words, you 
put these in lines 860 to 950, and then use 
the designated subroutines (2700, 2730, 
2770, 2810 and 2850) to act on these addi- 
tional words. 


Your First Adventure 

In summary, then, to create your first ad- 
venture, copy out map two and name the 
rooms. If you don’t want to go to the trou- 
ble of writing full descriptions, you can 
just add lines like ‘You are in the drawing 
room’, or even just the name of the room, 
such as “Mouldy cellar’. 

Leave my monster and treasure names 
in place. Wander around the map for a 
while, use the vocabulary as provided, and 
once you are familiar with the program in 
its present form, you can experiment by 
adding your own map, treasures and mon- 
sters. 

Once you're happy with that, you can 
work on adding new material. 

Note line 110, which sets QU to the 
value of one, and sends action to line 2950 
if the player has reached room 16. This is 
the final room, and this line is the one 


which checks if the adventure has ended. 
Of course, once you start creating your 
own travel tables, you should change the 
16 in this line into the number of the final 
room. (The starting room number, 9 in this 
case, is set equal to RO when the program 
begins, with line 4070.) 


Further Ideas 
Once you're familiar with the shell in the 
form it is presented here, there are several | 
other ideas you might like to incorporate. 
These include: 
@ A monster which does not stay pas- 
sively in one room, but follows you relent- 
lessly once you've woken it up. 
@ A few other ‘pseudo-players’ under the 
computer's control which appear to be ex- 
ploring the environment, too. The player 
can meet these people from time to time, 
possibly getting information about future 
dangers from them. 
@ A proper help command for the player 
to invoke if he or she feels hopelessly lost. 
A severe penalty (such as losing half the 
player's gold) should be charged to ensure 
this command is not used frequently. 
@ Doors can be locked, impassable, stuck 
or traps. Walls can fall in on players, floors 
give way to a gaping crevasse, and so on. 
Pictures can slide from walls, hitting our 
hapless player on the head. All these ef- 
fects can be controlled within the subrou- 
tine which holds the room description, 
and a flag used to make sure the danger is 
not repeated if the room is revisited dur- 
ing one particular run of the adventure 
I'd be extremely interested in seeing 
what you come up with using the shell. 
Please write to me care of Your Computer. 
May the Dreaded Ice-Dragon not molest 
you, and may all your chests be filled with 
Elven Gold. 


REM ** NEXT LINES REPORT ATTRIBUTES TO PLAYER ** 
PRINT: PRINT “Your attributes are:”" 

PRINT TAB(4);"Strength -"ST" Charisma -"Cil 

PRINT TAB(4);"Dexterity -"DE" Intelligence -"IT 
PRINT TAB(4);"Wisdom -"WI" Constitution ~"Cco 

REM ** NEXT LINE CHECKS IF ANY ATTRIBUTE 1S ZERO ** 
IF ST*CH*DE*IT*WI*CO<>0 THEN 380 

PRINT:PRINT "Unfortunately, you are exhausted...” 
PRINT "so this adventure must end":QU=2:GOTO 2990 


REM FO OKO KK KOKORO OOO KKK kA 


REM ** NEXT LINES CHECK TO SEE IF PLAYER CARRYING ANYTHING ** 


FLAG=0 
FOR J=1 TO 5 


2 REM ** NEXT LINE ACTIVATED IF OBJECT IN ROOM ** 
IF A(RO,5)<>0 OR A(RO,6)<>0 OR A(RO,7)<>0 THEN GOSUB 3850:REM OBJECTS 
IF A(RO,8)=0 THEN 210:REM ** NO MONSTER IN ROOM ** 
> PRINT TAB(3);"LOOK OUT! ":PRINT "THERE IS AN ";MS(A(RO,8));" HERE!" 
IF RND(1)>.7 THEN PRINT MS(A(RO,8));" ATTACKS!":KW=1:GOSUB 1670:GOTO 80 
REM KR KKK RRO KK ROK KOK KKK KKK KK 
REM ** NEXT LINES DECREMENT ATTRIBUTES ** 
KND(1)>. THEN ST=ST-1: ST<O THEN ST=0 
RND(1)>. THEN CH=CH-1: CH<0 THEN CH=0 
RND(1)>. THEN DE=DE-1: DE<O THEN DE=0 
RND(1)>. THEN IT=IT-1: IT<O THEN IT=0 
RND(1)>. THEN WI=WI-1: WI<0 THEN WI=0 
RND(1)>. THEN CO=CO-1: CO<0 THEN CO=0 


IF P(J)<>0 THEN FLAG=1 

NEXT J 

IF FLAG=0 THEN 490 

CASH=0 

PRINT: PRINT "You are carrying:" 

FOR J=1 TO 5 

IF p(J)<>0 THEN PRINT TAB(4);0S(P(J;) :CASH=CASH+V(P(J)) 
NEXT J 

IF CASH>0O THEN PRINT TAB(8);"Total value - $";STRS(CASH) 
PRINT 


REM Pom KOO OI OK KKK 


REM ** NEXT LINES ACCEPT PLAYER INPUT ** 


Microbee 
CATTER 


Catter is one of those annoyingly 
addictive games. The idea is to 
eat all the mushrooms, but Catter 
gets longer each time you in- 
dulge, and it tends to wander if 
not well controlled. Result? Very 
hard to survive the eight rounds 
— well, on level 3 it is. 


Richard Larkin 
Dee Why, NSW 


Q@@1@BREM CATTER 12/4/85 RICHARD LARKIN. 


@8118 CLS : NORMAL =: PRINT “CATTER"S"YOU ARE IN CHARGE OF A CATTERPILLAR WHICH I 
S RATHER FIDGETY."\"IT NEVER STOPS' SO YOU HAVE TO, AS BEST YOU CAN. HEAD IT TOW 
ARDS"; 


BUT ONLY THE RIPE ONES. "\"USEING THE ‘A’, °2°.* 
IF YOU DON'T IT WILL!" 


@0120 PRINT “ITS MEAL. MUSHROOMS, 
«" AND ‘>’ KEYS CONTROL THE CATTERPILLARS’\"DIRECTION. 


@@12@ PRINT "GAME ENDS WHEN THE CATTERPILLAR CANNOT MOVE. “&"OR IF YOU SURVIVE & 


ROUNDS. “%"GOOD LUCK'" : POKE 162,30 + POKE 167,128 3 POKE 257.2 

@0140@ FOR X=-2@1E TO -Z2@@t : READ Y =: POKE X.Y ! POKE X+i6.Y¥ § POKE X+32,Y 3 POK 

—& X*#48,Y = NEXT X 

@@1S@ FOR X=-1952 TO -1937 : READ Y : POKE X,Y * POKE X4+i6.¥ * POKE X+32,Y = POK 

& X+48,Y = NEXT X 

@@160 FOR X=-1886 TO -1792 : READ Y : POKE X.Y * NEXT X =: FOR X=-3872 TO -3809 : 
POKE X,2535 = NEXT X 

@@170 DATA 3.12, 16, 48, S3, 64, 137, 136, 138. 157,64, 3, 4, 16, 12, 3 

@B18O DATA 192, 48, S, 20, 202, 2, 145. 81,81, 145, 2, 202, 28. 8, 48, 192 

@@19@ DATA @.@, 15, 48, 64, 64, 128, 126, 159, 98. 2,4,4,8,8 15. 

@B200 DATA @. 15, GF, 127.127, 255, 255, 255. 126, F. 7s 7s 15 15) 15.8 

08210 DATA 1.3, 7,15) 31+ G3, 127) 255, 255) 127, 65s 310 15s 7s Sy I 

@8220 DATA 126, 192, 224, 248, 248, 252, 254, 255, 2551 254, 252+ 268, 240, 224, 192. 128 

Q@23B DATA BO, @, 240, 12. 2, 2,151, 249, 78, 64. 32, 32> 16» 16, 248 

BO240 DATA @. 240, 252, 254, 254, 255, 255, 255, 78, 192, 224, 224, 240, 249. 240, B 

@@250 DIM PC15),2Z¢03),DC2),NC2) 

ce FOR X=@ TO 3 =: READ Z(X), DCX) * NCX)=X 3 NEXT X 2? PRINT “ANY KEV TO CONTIN 

@O270 DATA 130, -64, 121, 2) 132.64, 133, -2 

@@2EO T=1 : R=1 3: SeQ@ : ISUSR(52774) 3 CURS 21,12 3 PRINT “SKILL LEVEL (1 TO 3)" 


NOTES: 
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POCKET PROGRAMS 


OB8298 FaeS2-ASC(KEY) =: IF F)3S OR F(1 THEN 290 


@OSO08 O=24 : U=@ : VOB] + CLS : NORMAL : CURS 19,1 ! PRINT “CATTER-by Richard La 
rein." = CURS 27,8 : PCG : PRINT “ROUND="R 

@6318 LwG =: FOR X*-3076-L*2 TO -3074 STEP 2 : POKE X.133 = POKE X+1,137 2 NEXT X 
2 Exm-3074 3 H=e-3O7E6-Le2 3: Get 


@O320 IG=FLTCR)/FLTCF +1 8 CURS 23.9 % PRINT “ SCORE = “ s: FOR X=@ TO 15 


COTIS PCX)=~-4896+ INT CAND*S12)%2 2 IF PEEK(P(X))=@32 THEN POKE P(X), 138 : 
3+1,142 3 NEXT X ELSE 330 


POKE P(X 


BOS4B G=Q-1 : TF OeB + POKE Prd, PIB+T = PHKE PCYd+1,14g4+T § Bes s Ta1-T 


@@350 CURS 31.9 8 PRINT S“ * 
Ae1 : G=e@ ELSE IF Awad 


3 S=S-1 : CaG : AM=PEEKC256) : 
3 G=3 ELSE IF A=46 3: Gl 


IF Aw26 3: Ge2 ELSE IF 


@@369 IF H+D(G))-3@73 OR H+D¢(G) (-4096 : GaC 


@@278 O=H : HeH+D(G) : 
@ 3 Usurl : 
@ 


TF HQ) PCU) THEN 388 ELSE POKE H,32 : POKE H+1i,32 : 
PLAY Ut HeO : GeC : YOuVO+I@ +: T#O@ : OQe2 


S=S+10 
IF U(16 THEN 348 ELSE 43 


@@28O IF PEEK(H)=32 AND H)-4896 AND H(-3873 THEN 488 
@679@ S=S-S : HzO : 


CX) 3 NCX) 8B 3 
: GOTO 4358 


FOR X=3 TO @ STEP -1 2 AMINTCRND*FLTCX+1)> 
IF PEEKCH+D¢(B) #32 OR H+D(B)=PCU) 


2 BeNCA) & NCA) =N 
2 G=B : NEXT*X 378 ELSE NEXT X 


08400 POKE 0,2¢(G) * POKE 04+1,.27(G)+4 * POKE H.148 : POKE H+i,141 
00416 IF Y®)1i AND Q=1 


zE+D(C-13@) 


’ YO=v@-1 ELSE LET C=PEEK(E>) +: POKE €&,32 : POKE E+1,32 : E 


Q@42@ OUT (2),255 : FOR Y=@ TO G4-Ue4 3: NEXT VY =: OUT(2),.@ =: GOTO 3408 


@B8438 R=R+i +: PLAY 9:6:8145782 3: IF Rix=B THEN GOTO 308 
@@446 NORMAL : CURS 25,18 3 


IVED & ROUNDS! " : 


PRINT “ WELL DONE' “ : CURS 19,11 : 
PLAY 93113832373 3363435 8 GOTO 288 


PRINT " YOU SURV 


@@450@ NORMAL : PLAY 1,1@ 3? CURS 27.10 : PRINT "BAD LUCK" : GOTO 280 


2445 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3065 
3070 
3075 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 


REM ** ROOM 
PRINT "ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT “ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT "ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT "ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT "ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT "ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT “ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT “ROOM 
REM 

REM 

RETURN 

REM ** ROOM 
PRINT "ROOM 
REM 

REM 

RETURN 


Adventure Shell 


SEVEN ** 
SEVEN" 


EIGHT ** 
EIGHT" 


NINE ** 
NINE" 


TEN ** 
TEN" 


ELEVEN ** 
ELEVEN" 


TWELVE ** 
TWELVE” 


THIRTEEN ** 
THIRTEEN” 


FOURTEEN ** 
FOURTEEN" 


FIFTEEN ** 
FIFTEEN" 


REM %&RR III 
REM DESCRIBE OBJECTS 


PRINT 


PRINT TAB(3)"YOU CAN SEE:" 


4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 


IF A(RO,5)<>0 THEN PRINT TAB(4);0S(A(RO,5)) 
IF A(RO,6)<>0 THEN PRINT TAB(4) ;O$(A(RO,6) ) 
IF A(RO,7)<>0 THEN PRINT TAB(4);08(A(RO,7)) 
FOR Z=1 TO 500:NEXT Z 


PRINT 
RETURN 


REM Oe 
REM INITIALISE 


DIM A(16,8),P(5),0$(8),V(20) ,M$(a),T(5) 
REM ** REM NEXT LINES DECIDE 


HUMAN ATTRIBUTES ** 


KK=K 3390 
FOR Z=1 TO 700:NEXT Z 3400 
PRINT "THE ";GS;" ~"MT 3410 
PRINT "* YOU -"HT 3420 
PRINT "---~----~---------+--+-+-+-~-------------- 7 3430 
IF K=0 THEN PRINT "You struck a splendid blow! ":MT=MT-1 3440 
IF K=1 THEN PRINT "THE ";G$;" STRIKES OUT”: HT#=HT-1:CH=CH-—1 3450 
IF K=2 THEN PRINT "YOU DRAW THE ";G$;"'S BLOOD":ST=ST-1 3460 
IF K=3 THEN PRINT "You are wounded!!":IT#=IT-1 3470 
IF K=4 THEN PRINT "THE ";G$;" IS TIRING" :DE=DE-1 3480 
IF K=5 THEN PRINT "You are bleeding...":WI=WI-1 3490 
IF K=6 THEN PRINT "YOU WOUND THE ";G$:MT=MT-1 3500 
IF RND(1)>.25 AND HT>0 AND MT>0 THEN FOR T=1 TO 1600:NEXT T:GOTO 2440 3510 
IF HT<MT THEN 2600 3520 
PRINT "YOU HAVE SLAIN THE ";G$ 3530 
ST=ST+2 : DE=DE+2 : WI=WI+2:CH=CH+2: IT=IT+2:CO=CO+2:MK=MK+2:GOTO 2670 3540 
PRINT "THE ";G$;" GOT THE BETTER OF":PRINT "YOU THAT TIME..." 3550 
IF Z=1 OR Q=1 THEN ST=4*INT(ST/S) 3560 
IF Z=2 OR Q=2 THEN CH=3* INT(CH/4) 3570 
IF Z=3 OR Q=3 THEN DE=6*INT(DE/7) 3580 
IF Z=4 OR Q=4 THEN IT=2*INT(IT/3) 3590 
IF Z=5 OR Q=5 THEN WI=5*INT(WI/6) 3600 
IF Z=6 OR Q=6 THEN CO=INT(CO/2) 3610 
A(RO,8)=0 3620 
FOR Z=1 TO 500:NEXT Z 3630 
RETURN 3640 
REM OWN COMMANDS ACTED ON HERE 3650 
REM OWN COMMANDS ACTED ON HERE 3660 
REM OWN COMMANDS ACTED ON HERE 3670 
REM OWN COMMANDS ACTED ON HERE 3680 
REM OWN COMMANDS ACTED ON HERE 3690 
REM OWN COMMANDS ACTED ON HERE 3700 
REM OWN COMMANDS ACTED ON HERE 3710 
REM OWN COMMANDS ACTED ON HERE 3720 
REM OWN COMMANDS ACTED ON HERE 3730 
REM OWN COMMANDS ACTED ON HERE 3740 
REM OWN COMMANDS ACTED ON HERE 3750 
REM OWN COMMANDS ACTED ON HERE 3760 
REM OWN COMMANDS ACTED ON HERE 3770 
REM OWN COMMANDS ACTED ON HERE 3780 
REM OWN COMMANDS ACTED ON HERE 3790 
REM OWN COMMANDS ACTED ON HERE 3800 
REM OWN COMMANDS ACTED ON HERE 3810 
REM OWN COMMANDS ACTED ON HERE 3820 
REM KRKKKKKKEKEK 3830 
REM END OF GAME 3840 
PRINT 3850 
$C=0:REM SCORE 3860 
IF QU<>4 THEN 2950 3870 
PRINT "I did not imagine you would turn" 3880 
PRINT TAB(5);"out to be a quitter!":GOTO 2990 3890 
PRINT: PRINT "CONGRATULATIONS! You have completed” 3900 
PRINT TAB(7); "THE ADVENTURE" 3910 
SC=100 3920 
PRINT: PRINT 3930 
$C=99* (SC+20*CASH+47*MK+ST+2*CH+3*DE+4+1T+5*W1+6*CO)/QU 3940 
IF MK>O THEN PRINT TAB(7);"YOU KILLED"MK"MONSTERS" 3950 
PRINT: PRINT TAB(7);"YOU FOUND $";STRS(CASH);" WORTH" 3960 
PRINT TAB(8);"OF TREASURE": PRINT 3970 
PRINT: PRINT “Your score for this Adventure is*SC 

END 3980 
REM 2 RI IIR I 3990 
REM ROOM DESCRIPTIONS 4000 
PRINT "YOU ARE IN "°; 4010 
IF RO<9 THEN ON RO GOSUB 3090,3140,3190,3240,3290,3340,3390,3440 4020 
IF RO>8& THEN ON RO-8 GOSUB 3490,3540,3590,3640,3690,3740,3790 4030 
RETURN 4040 
REM ** ROOM ONE ** 4050 
PRINT “ROOM ONE" 4060 
REM 4070 
REM 4080 
RETURN 4090 
REM ** ROOM TWO ** 4100 
PRINT “ROOM TWO” 4110 
REM 4120 
REM 4130 
RETURN 4140 
REM ** ROOM THREE ** 4150 
PRINT "ROOM THREE” 4160 
REM 4170 
REM 4180 
RETURN 4190 
REM ** ROOM FOUR ** 4200 
PRINT “ROOM FOUR" 4210 
REM 4220 
REM 4230 
RETURN 4240 
REM ** ROOM FIVE ** 4250 
PRINT "ROOM FIVE" 4260 
REM 42700 
REM 4280 
RETURN 4290 
REM ** ROOM SIX ** 4300 
PRINT "ROOM SIX" 4310 
REM 4330 
REM 4340 
RETURN 4350 


ST=INT(RND(1)*6+RND(1)*6+RND(1)*6)+3 
CH*INT(RND(1)*64+RND(1)*6+RND(1)*6)+3 
DE={INT(RND(1)*6+RND(1)*6+RND(1)*6) 43 
IT=INT(RND(1)*6+RND(1)*6+RND(1)*6)4+3 
WI=INT(RND(1)*6+RND(1) *6+RND(1)*6)43 
CO=INT(RND(1)*6+RND(1)*64+RND(1)*6)4+3 
CASH=0:REM TREASURE 

RO=9:REM STARTING ROOM 

QU=1:REM END OF GAME FLAG 

MK=0:REM MONSTERS KILLED 

CS$=a"" 

REM ** SET UP ROOMS ** 

FOR X=1 TO 16 

FOR Y=1 TO 4 

READ A(X,Y) 

NEXT Y 

NEXT X 

REM ** DISTRIBUTE TREASURE ** 

FOR Z=1 TO 8 

READ 0$(Z), v(z) 

NEXT Z 

FOR Q=5 TO 8 

Z=INT(RND(1)*1541) 

IF A(Z,5)<>0 THEN 4200 

A(Z,5)=Q:REM OBJECT NO. IN ROOM 
NEXT Q 

PRINT 

REM ** DISTRIBUTE MONSTERS ** 

FOR J=1 TO 8 

READ MS(J) 

Z=INT(RND(1)*1541) 

IF A(Z,8)<>0 THEN 4280 

A(Z,8)=J 

NEXT J 

CLS 

RETURN 


REM REARKKKKKKKKKKKKKEKKKKKKKAKKEK 


REM ROOM DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0,4,0,0:REM ROOM ONE 
0,5,3,0:REM ROOM TWO 
16,0,0,2:REM ROOM THREE 
1,8,5,0:REM ROOM FOUR 
2,0,6,4:REM ROOM FIVE 
0,0,0,5:REM ROOM SIX 
0,13,0,0:REM ROOM SEVEN 
4,11,0,0:REM ROOM EIGHT 
0,12,10,0:REM ROOM NINE 
0,0,0,9:REM ROOM TEN 
8,14,12,0:REM ROOM ELEVEN 
9,9,13,11:REM ROOM TWELVE 
7,0,0,12:REM ROOM THIRTEEN 
11,0,15,0:REM FOOM FOURTEEN 
0,0,0,14:REM ROOM FIFTEEN 
0,3,0,0:REM ROOM SIXTEEN 


REM ** OBJECT DATA ** 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"RING" ,567 
“KEY" ,2 
“LOCKET",15 
"“ELVEN-GOLD" , 799 
"SWORD" ,0, "AXE" ,0 
"“AMYTHEST", 27 
"CRYSTAL", 45 


REM ** MONSTER NAMES ** 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“ENTANGLER" 
“ARTIFACTUM" 
“INKBLOTT" 
“UGLY UNDEAD" 
"*ORRIBLE ORC" 
“ICE~DRAGON” 
"“EMBIHUUND" 
“INSALIVATE" 
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LEDGERMASTER %o 


BY LINDSAY R. FORD 
Dreamcards Software 


evr pr tr SS ss hss ss sieht rrr hss Ss SS SSS TAT 


This commercial package, written by 
Lindsay Ford of Dreamcards Software for 
the Microbee, will come in very handy 
around tax time — but it'll take a bit of 


typing... 


WITH TAXATION time almost here again, many readers will be faced with 
the daunting prospect of having to shuffle through bundles of old receipts 
and cheque butts to put together their tax returns. This problem is a 
particular burden to people like me, who run small businesses that don't 
make enough to justify paying the fees of a good tax accountant. Club 
treasurers facing the task of preparing their annual reports will also know 
just what | mean! 

One solution is to invest in a software accounts package, but these are 
generally disk-based, expensive to buy and more sophisticated than most 
of us need. LedgerMaster was written to overcome these problems. It is a 
financial database program designed to run on 32 Kbyte (or larger) 
Microbee computers and has all the features you're likely to need to 
prepare a profit and loss statement for taxation purposes or for 
publication in your club magazine. It allows you to create a ledger 
containing up to 320 transaction records (‘files’), which can be stored on 
tape, printed, sorted and searched as with any general database. 

Where LedgerMaster stands out, however, is it also conducts a balance 
of the ledger files (and of any other ledgers you have ‘chained’ to it) and 
compiles these into a proper profit and loss statement. This takes almost 
all the effort out of preparing tax returns or treasurers’ reports, whether 
you're typing in the receipts and payments in one frenzied, last-minute 
burst or simply tallying a ledger you've created through the year as 
transactions occurred. 


Program Entry 
The program is really a compromise between efficient code and legibility. 
Ideally, a BASIC program needs as many instructions as possible 
crammed into each line, if maximum speed and economic memory use 
are to be achieved, but this would have made LedgerMaster extremely 
difficult to read. I've opted for slightly less-than-optimum line lengths, but 
even so the size of the program means you have to be extremely careful as 
you type it in. Please bear the following points in mind: 
@ Use AUTO mode to enter the program, as this minimises the risk of 
‘non-printing characters’ being accidentally included in the code. If you 
have my BASIC Screen Editor fitted to your Bee, use it. This will avoid the 
problem entirely. 
@ REMs that appear in a line of code (for example in line 1) should be left 
out entirely. 
@ Where a line contains a REM but no BASIC code (for example lines 19 
and 20), the REM should be entered, but any text following it omitted. 
@ The up-arrow character ( fT ) appears frequently in the program. Don't 
leave it out. 
®@ Watch out for variables I, O and O. These are easy to confuse with ones 
and zeros, 

Once the program has been entered exactly as shown in the listing 


(subject to the above comments), use the GX command to locate all lines 
containing REMs. These lines should be deleted (using the DELETE 
command) and several copies of the program should then be stored on 
tape. 

At this stage you have an almost complete program. Now type in the 
following (in ‘direct mode’ — don't give it a line number): 


CLS: X=0: Y=PEEK(2258) + 256*PEEK(2259): FOR Z=2304 TO Y: 
X=X+PEEK(Z): NEXT Z: PRINT "X="; X, "Y="; Y: END 


When you press the <RETURN> key the screen will clear, and after a 
few minutes two numbers will appear. ‘Y’ is the address in decimal of the 
top of the BASIC file and should be 11819. If it’s higher than this you've put 
something in the program that shouldn't be there, if lower you've left 
something out. ‘X’ is a checksum — it is the total of the numbers 
contained in each of the memory bytes making up the program. If it is - 
16146 then all is well and you can proceed to the next stage; otherwise 
you'll have to look for your typing error. 

Stage 2 of the operation involves removal of unnecessary spaces in the 
listing, as these greatly reduce execution speed. Enter “GX///’<Return> 
and rest a brick on the full-stop key, then go and make yourself a cup of 
coffee. After about five minutes all spaces will have been removed. Now 
you'll have to insert spaces in the places they're meant to be by 
substituting a space for each up-arrow. Use “GX/ f//'to do this. Once 
done you should save a few copies on tape, then enter the test routine 
shown above. This time Y should be 10079 and X, 17639 If they are you've 
got a fully operational LedgerMaster. 


Using the Program 

When you RUN LedgerMaster there will be a brief delay as the main arrays 
are initialised, then a menu will appear giving you the option to ‘Create 
Base’ or ‘Load’. You will also see two numbers at the bottom right of the 
screen. The first of these is the free memory counter, which tells you how 
much room remains in the ledger (you can’t run out of file space on a 32 
Kbyte machine), and the second is the number of free files available. As 
the ledger hasn't been initialised this second number will be zero. You 
won't have a ledger tape you can load at this stage, so let’s look at the first 
option. 


Create Base 

This routine initialises the ledger, clearing out any existing material in 
memory. For this reason you will be asked if you are ‘Sure?’ if you access it 
when a ledger is already present. You will then be requested to name the 
ledger (maximum 24 characters), then to input the various categories of 
payments and receipts you want included on the final balance sheet (such 
as ‘insurance’, ‘rent’, ‘royalties’, ‘wages’ and so on). Give these a good deal 
of thought before starting, as they comprise the framework around which 
your financial report or tax return will be built. 

You can enter up to 20 classes of payments and 20 of receipts 
(maximum 12 characters), and a ‘carried forward’ balance for each. This 
balance will be of importance if you are including amounts accrued from a 
previous period, such as debts outstanding from the last tax year No 
‘carried forward’ balance will be entered if you press the <Return> key. 
Pressing <Return> when you're prompted to input a payment or receipt 
category indicates you've finished entering items in that class. 

Once the payments and receipts categories are entered your ledger 
‘base’ is complete and the program will return to the menu. You will now 
have four options available — ‘Create’, ‘Load’, ‘Enter’ and ‘Save’. If you 
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Microbee 47 


want to go on and input a couple of files, the first option to look at is 
‘Enter’. 


Enter 

Pressing key 3 clears the menu from the screen and the prompt at bottom 
left asks you to input the ‘day’ part of the date of the particular file. By now 
you'll have noticed the program uses a non-standard input routine, the 
length of the particular field being indicated by a row of star (*) characters 
next to the prompt. As each character is typed it replaces one of the stars, 
the entry being complete either when the <RETURN> key is pressed or 
when the last character in that field is typed. 

With date entries the data field is two characters wide, so a date 
comprising one digit (for example the ‘I’ in 1/12/84) can be entered either 
as ‘1 <RETURN>’ or as ‘01’. Once the day is entered you will be prompted 
for the month and then the year. To avoid unnecessary typing, the 
program allows you to ‘borrow’ date data from the last file you typed. 
Thus, if the date on the last record was ‘14/3/84’ and you press the 
<RETURN> key in answer to the ‘day’ prompt in the next record, it will be 
assigned the date ‘14/3/84’ as well. This can also be used with parts of 
dates, so if you input ‘28’ for the day, then press <RETURN> when 
prompted to input the month, the date will be entered as ‘28/3/84’. 

An error check routine is incorporated to detect illegal dates (including 
February 29 on non-leap years). Note, as each field is entered the partially 
complete file is displayed at the top of the display window. 

After the date is entered you are asked to enter ‘From/To’. This identifies 
from whom the money was received or to whom it was paid (maximum 16 
characters). Pressing the <RETURN> key will enter the word ‘Paid’ in this 
field. The next item requested is the receipt or invoice number (maximum 
seven characters), which can be omitted by pressing the <RETURN> key, 
and the word ‘B/card’ inserted by pressing f B (that is, the <CONTROL> 
and ‘B’ keys simultaneously) or the word ‘Cash’ by pressing 7 C. 

The next two steps deal with the category into which the item will be 
inserted in the balance sheet. The first asks you if it is a receipt or payment 
(press ‘R’ or ‘P’), then all categories included in the ledger base will appear 
in the display window, with letters to identify them. Press the key 
corresponding to the particular category into which the payment falls. If 
you press a key that doesn’t correspond to one of the displayed categories 
it will be ignored. 

The final item to enter is the amount of money involved. Although this 
field is nine characters wide, two spaces are reserved for cents and one for 
the decimal place. (If you’re dealing with amounts of a million dollars or 
more you can afford to get an accountant to do it for you!) There’s no need 
to input trailing zeros in the cents part, so ‘100 dollars’ can be entered as 
‘100 <RETURN>’ and ‘87 dollars 30 cents’ as ‘87.3 <RETURN> 
Payments and receipts appear in separate right-justified columns in the 
display window: payments to the right and receipts to thé left. 

This completes your file entry and you will now be asked whether you 
wish to proceed to enter the next file (press <RETURN>), to return to the 
menu (key ‘M’) orto ‘re-do’ (correct) the record you just typed (key ‘R’). The 
program will not allow you to exceed the ledger capacity, so once the 
320th file is typed it will return to the menu and announce ‘Ledger Full’. 


Save 
This option allows you to save all or part of your ledger on tape. Pressing 


key 4 will take you into the ‘SAVE’ routine and you'll then be asked | 


whether you want to save the base (key 1), the files (key 2) or the whole 
ledger (key 3). Pressing any other key aborts the routine, returning you to 
the menu. 

In the majority of cases you will want to save the whole ledger on tape 
(key 3), but the base and file save facilities can be useful if you want to 
save only the files and incorporate a new base in the ledger with the ‘Load’ 
routine ‘Merge’ facility, or if you want to use the ‘New Base’ facility to 


‘Chain’ a number of ledgers together (see below). Whatever option you 
choose, the program recognises the importance of your ledger files and 
saves two copies — just in case a fault in the tape causes a loading 
problem. The message ‘Start Tape’ will appear on the screen, followed by 
a short delay (to allow the tape leader to go past the record head), then 
the computer will announce it is saving ‘Copy 1’, ‘Copy 2’, then return to 
the menu. 

The ledger ‘header’ (the important ledger information) is saved at 300 
baud, then the base and files are saved at 1200 baud. This is not a job for 
bargain-basement tapes. I use TDK 120 us bias cassettes — anything less 
is just begging for an unloadable file that you'll have to type all over again. 
Database ‘Save’ routines tend to bring out the worst in Microbee cassette 
interfaces; readers whose Bees are 32 Kbyte IC models or earlier should 
consider making the tape I/O modifications suggested in the Microbee 
Hacker's Handbook (available through Your Computer), and those with the 
Telcom v1.0 or 1.1 communications ROM ought to either update to a later 
version or have the permanent RTC link disconnected. Otherwise, loading 
at 1200 baud becomes a game of chance! 


Load 
The load facility is designed for maximum flexibility in manipulating your 
ledgers. Not only can you load a full ledger (key 3) or a base or files alone 
(keys | or 2), but if there is already a ledger in memory and you choose to 
load only the files or base of your tape ledger, that section will replace the 
corresponding section of the ledger already in memory. This allows you to 
create a new base if the old one was deficient (such as if you decide an 
extra category ought to have been included in the payments section). 
A ‘Merge’ facility (key 4) is also included, allowing you to add the files in 
your tape ledger to the end of the ledger (if any) already in memory. If this 
exceeds the ledger capacity (320 files), the computer announces “Merge - 
Part only”, and you'll have to use the ‘Display’ function to check how many 
of the tape files were loaded before the ledger reached its capacity. 
Once you've selected the load option you want to use, the program 
requests you to ‘Start Tape’, and this message remains on the screen until 
a valid tape header is encountered. At this stage the file title will be 
displayed with some additional information (such as whether the tape 
consists of a base or files only or whether the files are unsorted — see 
below). If the tape file is incompatible with your load command (such as if 
you commanded the computer to load a base and the tape dump is files 
only), the routine will abort leaving any existing ledger intact. Please note, 
limits on program length meant that no load indicator or error checking 
could be included, so if your ledger hasn't loaded after about two minutes 
then press <RESET> and try again. 


Sort 
This routine arranges the files in your ledger in chronological order 
according to the file dates. As LedgerMaster is written in BASIC the Sort 
routine is quite slow (about five minutes to sort 320 files), so you will be 
asked whether you are ‘Sure?’. Press key ‘N’ to abort or key ‘Y’ to continue. 
Your files don’t have to be sorted before they're saved on tape or 
printed, but your final printout will be much easier to follow if a sort is first 
carried out. A counter will appear on the screen as the routine is in 
progress (just to reassure you your computer hasn't died of a stroke!). 


Delete 

This function is useful if you want to get rid of an incorrectly typed file ora 
slab of files in a ledger that has been partly ‘merged’ with an earlier ledger. 
Enter the number of the first file to be deleted and the file will appear in 
the display window. Now press key ‘N’ if you've picked the wrong one or 
key ‘Y’ if it’s correct. You'll then be asked for the number of the last file to 
be deleted. If only one file is to be deleted, press the <RETURN> key, 


otherwise enter the appropriate file number and check that the file that » 
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appears on the display window is the last one in the section you want to 
erase. Both files that appeared on the screen will be deleted, along with all 
files in between. Invalid file numbers will be rejected. 


Print 

This is a powerful function with a range of options. You'll first be asked 
whether you want to search for any particular string, allowing you to 
search through the date, item, receipt number and/or money columns of 
the ledger for all occurrences of a particular set of characters. So if you 
entered ‘B/card <RETURN>’ in response to the ‘Search’ prompt, the only 
ledgers printed would be those containing this expression. 

If you're searching the money column for all entries of a particular 
amount, please remember trailing zeros in the cents column are omitted. 
A hash mark (#) followed by a file number entered in response to the 
search request will cause printing to commence at that file number. To 
print all files in the ledger simply press the <RETURN> key. 

The program will now ask whether you want the printout directed to the 
screen or to a printer (keys ‘S’ or ‘P’). If you select the printer option a sub- 
menu will appear, asking you to select the printer type (press an invalid 
key if you chose the printer option by mistake). Once you've made your 
selection you'll be asked to press a key to continue. Check your paper is 
properly aligned in the printer, press a key and away it will go. 

The ledger printout consists of three sections (see Figure 1). First are 
the categories ‘carried forward’ (if any), followed by the ledgers them- 
selves and finally the balance sheet. Base categories with a nil balance are 
omitted. If the ‘search’ mode is used then only the ledgers are printed, as 
otherwise the balance sheet totals would be misleading. 

When printing on the screen the ledger categories are shown simply by 
their code letter (to accommodate the 64-character-width screen), but 
these are printed in full if a printer is used. The printer format also 
includes a page heading showing the ledger name, column headings, 
page number and (if the ledger has been sorted) the dates it covers. 


New Base 

This option assists in ‘chaining’ ledgers by taking the base categories of an 
existing ledger, adding to each the total of all applicable files, then 
erasing the files themselves. This new base now contains ‘carried forward’ 
totals that are used in the new ledger, so its balance sheet reflects the 
total of the entries in both. 

When the option is selected you'll first be asked if you're ‘Sure?’, as 
accidental selection of this routine would have disastrous results. You'll 
then be asked to enter the name of the new ledger, following which the 
necessary operations will be carried out and the program will return to the 
menu. 


A Final Balance 

No doubt some readers will have the utter horrors at typing in a program 
of this length. If you want to save yourself the trouble, forward a cheque or 
money order for $15, payable to Dreamcards, 8 Highland Court, North 
Eltham 3095 (mail order only), and I'll send you a tape. 

Anyone wanting a more sophisticated tape-based accounting system 
might like to consider my Multibank program ($34.95 plus $1.50 postage 
and packing, for cassette and manual). This generates cassette files 
containing up to eight ledgers, and has heaps of frills usually only found 
on expensive disk-based systems (such as automatic allowance for 
periodical debits). O 
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POCKET PROGRAMS 


LedgerMaster 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 


POKE 140,1 REM Disable <BREAK> Key 
GOSUB 333 REM Initialise Storage arrays 
IN#O: OUT#O REM VDU On 

N=8: IF BO$(0)="" THEN LET N=2 ELSE IF C=1 THEN LET N=4 
KO$=KEY$: K4$="": I[=0: Q=0: IF C<3 AND N=8 THEN LET N=5 
GOSUB 298: INVERSE: CURS 28,4: PRINT ""“MENU™": NORMAL 
PRINT \ SPC(14) "Create”..... ie 

PRINT SPC(4) “Load”....... “2": IF N=2 THEN 16 

PRINT SPC(14) ie 
PRINT SPC(4) 
PRINT SPC(14) 
PRINT SPC(4) 
PRINT SPC(14) 
PRINT SPC(4) "New  Base’...°8" 

IF C=V+1 THEN PRINT \ SPC(21) "***° LEDGER’ FULL’ ***" 
K2$="Select” Menu Option": GOSUB 226 
X=INT(VAL(KO$)): IF X=O0 OR X>N THEN 16 

PLAY 22,1: ON X GOTO 65,33,83,120.138,22,150,216 
REM 

REM ------~------73--- Sort Routine ---- 


": IF N=4 THEN 16 
";: IF N=5 THEN 16 


GOSUB 232: IF K1$="N" OR S=1 THEN 3 

X=0: GOSUB 317 REM Set-up Date array 

FOR X=1 TO C-1: GOSUB 292: A1(X)=F4: NEXT X 
FOR X=1 TO C-2: GOSUB 317: FOR M=X+1 TO C-1 
IF A1(M)=>A1(X) THEN 29 

KO$=A0$(M): AO$(M)=A0$(X): AO$(X)=KOS$ 
F1=A1(M): A1(M)=A1(X): A1(X)=F1 

NEXT M: NEXT X: S=1: GOTO 79 

REM 


REM Sort 


~ "Load" Routine ~------+----~----- 


N=3: 
GOSUB 324: 


IF C>1 AND C<V+1 THEN LET N=4 

IF O=-0O THEN 3 

OUT#O OFF: IN#2 REM VDU Off, 300 baud Cass. in 

INPUT K1$, D, H, X, Y. Z. E: K1$=K1$(:7) 

IN#O: OUT#O REM VDU On again 

IF 0=3 AND H<3 THEN LET O=0 

IF O=1 AND H=2 THEN LET O=0 

IF O>1 AND H=1 THEN LET O=0 

KO$="": J=1: L=D-1: IF O<4 THEN 44 

J=C: L=L+C: C=L: S=0: KO$=""-"Merge" 

IF C>V+1 THEN LET C=V+1: KO$=KO$+""(Part“only)" 

IF O=2 OR O=3 THEN LET C=D: S=Z 

IF O=1 OR O=3 THEN LET BO$(0)=K1$: P=X: R=Y: T=E 
K1$=K1$+KO$: CURS 0,12: PRINT [A64°32] 

CURS (64-LEN(K1$))/2,12: PRINT K1$: CURS 26,13 

IF H=1 OR O=1 OR C=1 THEN PRINT "~"(Base)": GOTO 51 
IF (H=2 OR O=2) AND C>1 THEN PRINT "““(File)": GOTO 51 
IF S=0 AND C>1 AND O>1 THEN PRINT "(Unsorted)" 

IF O=O THEN 79 ELSE LET N=X: IF Y>X THEN LET N=Y 
CURS O: OUT#O OFF: IN#3 REM VDU Off, 1200 baud Cass. in 
FOR X=1 TO N’ REM Load Base 

IF (O=2 OR O=4) AND H=3 THEN INPUT KO$, KO$, Fl, F1 
IF O=1 OR O=3 THEN INPUT BO$(X), B1$(X), B2(X), B3(X) 
NEXT X: IF O=1 THEN 58 ELSE FOR X=J TO C STEP 3 

INPUT AO$(X), AO$(X+1), AO$(X+2): NEXT X 

IF C<V+1 AND O>1 THEN GOSUB 336 

Y=P+1: IF P<20 THEN GOSUB 337 

Y=R+1: IF R<20 THEN GQSUB 338 


REM -SeseS ss Sesseen> "Create" Routine --------------- 
REM 
GOSUB 331: 


IF K1$="N" THEN 3 


G=24: K2$="File°“Title": GOSUB 298: GOSUB 250: BO$(0)=K1$: 


GOSUB 304: P=P+1: GOSUB 249: BO$(P)=K1$: K3$=K1$ 


IF K3$="" AND P=1 THEN LET B0$(1)="Payment": GOTO 70 

IF K3$="" THEN LET P=P-1: GOTO 71 

GOSUB 237: B2(P)=F3: IF P<20 AND K3$<>"" THEN 67 

PLAY 22,1 

GOSUB 307: R=R+1: GOSUB 249: B1$(R)=K1$: K3$=K1$ 

IF K3$="" AND R=1 THEN LET B1$(1)="Receipt": GOTO 75 

IF K3$="" THEN LET R=R-1: GOTO 76 

GOSUB 237: B3(R)=F3: IF R<20 AND K3$<>"" THEN 72 

PLAY 22,1: T=0: FOR X=1 TO 20: IF B2(X)>0 THEN LET T=-T+1 


IF B3(X)>0O THEN LET T=T+1 

NEXT X: C=1: K3$="": GOTO 3 

CURS 0: PLAY 22,1; 0.5: GOTO 3 

REM 

REM --~-------~------- “Enter” Routine -----------.---- 7 
REM 

IF C>V THEN 3 

$=0: AO$(C)="": M=C: GOSUB 268: I=C-1: G=2 

IF C>1 THEN LET X=C--1: GOSUB 292 


LedgerMaster 


00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 

00142 

00143 
00144 

00145 
00146 
00147 
00148 
00149 
00150 
00151 

00152 

00153 
00154 

00155 
00156 
00157 
00158 
00159 
00160 

00161 

00162 

00163 
00164 

00165 
00166 

00167 

00168 

00169 
00170 


K2$="Day": GOSUB 250: IF K1$="" AND F1>0 THEN 92 
F1=VAL(K1$): IF F1=0 OR F1>31 THEN 86 


K2$="Month": GOSUB 250: IF K1$="" AND F2>0 THEN 92 
F2=VAL(Ki$): IF F2=0 OR F2>12 THEN 88 

K2$="Year": GOSUB 250: IF Ki$="" AND F3>0 THEN 92 
F3=VAL(K1$): IF F3=0 THEN 90 


RESTORE: FOR X=1 TO INT(F2): READ Z: NEXT X 
DATA’ 31,28,31,30,31,30,31,31,30,31,30,31 
IF FRACT(F3/4)=0 AND F2=2 THEN LET Z=29 
IF INT(F1)<=Z THEN 97 

CURS 1,16: PRINT "***° DATE” ERROR ***"; : 
KO$=STR$(INT(F1)): K1$=KO$(;2)+"/" 
KO$=STR$(INT(F2)): K1$=K1$+KO$(;2)+"/" 
KO$=STR$(INT(F3)): IF F3<10 THEN LET K1$=K1$+"0" 
K1$=K1$+K0$(;2): GOSUB 267: K2$="From/To": G=16: 
GOSUB 250: IF K1$="" THEN LET K1$="Paid" 

GOSUB 267: K2$="Cheque/Receipt”™No.": G=7: GOSUB 250 

IF X=2 THEN LET K1$="B/card" ELSE IF X=3 THEN LET K1$="Cash" 


PLAY 10,12: GOTO 86 


I=1 


GOSUB 267: K2$="Receipt’ (R)“or’ Payment” (P)" 


GOSUB 250: GOSUB 242: 


IF K1$<>"R" AND K1$<>"P" THEN 105 


GOTO 111 ELSE GOSUB 304: GOTO 110 
GOTO 111 ELSE GOSUB 307 
IF X<1 OR X>M THEN 110 


IF X=1 THEN 112 


Routine 


GOSUB 226: 

GOSUB 285: GOSUB 298 

IF K1$<>"P" THEN 109 

M=P: IF M=1 THEN LET K1$="A": 

M=R: IF M=1 THEN LET K1$="A": 
K2$="Category": GOSUB 226: X=X~-64: 
GOSUB 267 

G=9: 1=0: K2$="Amount": 

GOSUB 267: K2$="Next=<CR>° “Menu=M* “Re-do=R~": I=1 
GOSUB 226: ITF Ki$="R" THEN 84 

IF K1$<>"M" AND X<>128 THEN 114 
C=C+1: IF X=128 THEN 83 ELSE 3 

REM 

REM ----------------- "Save" 

REM 

N=3: IF C=1 THEN LET N=1 

GOSUN 324: IF H=0 THEN 3 

N=P: 'F R>P THEN LET N=R 

FOR Q=1 TO 2: PLAY 0,60: KO$=B0$(0) 


CURS 0,12: PRINT [A28°32]; “Copy"; Q; [A28~32]: CURS 0 
OUT#2 REM 300 Baud Cassette out (VDU remains on) 

PRINT eee re ROS Se Ce, ee A ee Pa ee Re a Sea 
PLAY 0,1: OUT*3 REM Delay / 1200 Baud Cassette out 

IF H=2 THEN 130 ELSE FOR X=1 TO N- REM Save BASE 

PRINT BOS$(X); “,"; BI$(X); ","; B2(X); ","; B3(X): NEXT X 
PLAY 0,1: IF C<2 OR H=1 THEN 133 

FOR X=1 TO C STEP 3 REM Save FILES 

PRINT AO$(X); ","; AOS(X+1); ","; AOS(X+2): NEXT X 

OUT#O REM De-select Cassette output 

NEXT Q: GOTO 79 

REM 

REM -----------~---- "Delete" Routine ---------------- 
REM 

G=3: K3$=""file° to’ be deleted": K2$="First"+K3$ 

GOSUB 250: O=INT(VAL(K1$)): IF O<1 OR O=>C THEN 138 


M=0O: GOSUB 268: GOSUB 232: IF K1$="N" THEN 3 

G=3: K2$="Last"+K3$+""-"“or°<CR>": [=1: GOSUB 250 
L=INT(VAL(K1$)): IF K1$="" THEN LET L=0 

1=0: IF L<O OR L=>C THEN 141 ELSE IF L=O THEN 145 

M=L: GOSUB 268: GOSUB 232: IF K1i$="N" THEN 141 

K3$="": Z=L-O+1: X=0: GOSUB 317: FOR X=L+1 TO C 
A0$(0)=A0$(X): O=O+1: NEXT X: C=C-Z: GOSUB 336: GOTO 79 
REM 

REM ----~----~------ “Print” Routine ----------------- 
REM 

G=20: I=1: H=1: K2$="String°search": GOSUB 250: K4$=K1$ 
IF ASC(K4$)=35 THEN LET H=INT(VAL(K4$(;2))): K4$="8" 


IF H=0O OR H>C-2 THEN 150 
K2$="Screen’(S)"or’Printer”(P)": GOSUB 226 

L=12: IF K1$="S" THEN 163 ELSE IF K1$<>"P" THEN 3 
GOSUB 298: K2$="PRINTER Type:": PRINT \\ SPC(15); K2$ 
PRINT \ SPC(20) "“Parallel~"°"** -""Key"1" 

PRINT SPC(20) “Serial” 300bd°“-"“Key~ 2" 

PRINT SPC(20) “Serial” 1200bd° -* “Key” 3" 

PRINT SPC(20) “Abort”-“"any other’ Key” 


GOSUB 
L=57: 
GOSUB 
FOR X 
D=0: 

IF K4 
G=1: 

IF KO 
K1$=K 
IF Do 
FOR X 


226: 
Q=X: 
225: 
=1 TO 


X=X-48: IF X<O OR X>4 THEN 3 

IF X>1 THEN LET Q=X+2 

OUT#O: OUT#O OFF: OUT#Q ON: PRINT 

20: B4(X)=B2(X): BS(X)=B3(X): NEXT X 

F3=0: F4=1: O=T: U=0: W=0: E=C+P+R+T+4 

$<>"" THEN LET E=C: O-1 

KO$=KEY$: IF KO$="" THEN 169 ELSE PLAY 22,2 

$="A" OR KO$="a" THEN 210 REM Detect <A> key 

YY$: IF K1$="" THEN 168 REM Hold if any other key 
“. THEN 178 ELSE IF Q>0 THEN 171 REM Page Heading 
=3 TO 14: CURS 1,X: PRINT [A64°32]: NEXT X: CURS 1,3: GOTO 178 


POCKET PROGRAMS 


00171 

00172 

00173 

00174 

00175 
00176 

00177 

00178 

00179 
00180 
00181 

00182 

00183 
00184 

00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 


D=2: PRINT “LEDGER:~"; BO$(0); SPC(26-LEN(BO$(0))); 
K2$="“to~": IF S=0 THEN 175 REM Print dates if SORTED 
KO$=A0$(1): GOSUB 286: K2$=K1$+K2$ 


KO$=A0$(C-1): GOSUB 286: K2$=K2$+K1$: PRINT K2$; 
PRINT SPC(34-LEN(K2$)); “Page™"; F4: F4=F4+1 
PRINT "No.~~~~~ DATE” ~*“ TRANSACTION"; SPC(17); 


PRINT "CLASS"; SPC(16); 


“AMOUNT™ ($)": 


PRINT [A79°45] 


IF O=0 OR K4$<>"" THEN 188 REM Print “Carried Forward" 


U=U+1: IF U>P THEN 182 

F1=B2(U): IF Fi=0 THEN 179 
KO$=BO$(U): X=LEN(KO$): Z=0: GOTO 184 
W=W+1: F1=B3(W): IF F1=0 THEN 182 


KO$=B1$(W): X=LEN(KO$): Z=11 


IF O=T THEN PRI 
IF Q>0 THEN PRI 
IF Q=0 THEN PRI 


NT "“CARRIED* FORWARD: ~~~"; 
NT SPC(22); KO$; SPC(27-X-Z); 
NT KO$; SPC(33-X-Z); 


O=-0-1: PRINT [F10.2°F1): GOTO 205 REM Print amount carried 
IF K4$="" OR K4$="#" OR O<>1 THEN 190 


PRINT \ SPC(10); 


"SEARCH; ~"; 


K4$ \: O=0: G=3: GOTO 205 


ELSE PRINT SPC(20); 


M=H: IF K4$="" THEN LET M=H-T 


IF M<1 OR M>=C THEN 194 ELSE GOSUB 269 REM Print FILE 
IF M=O THEN LET B5(N)=B5(N)+F1 ELSE LET B4(N)=B4(N)+F1 
GOTO 205 REM Add balance in file to BASE category 


IF K4$<>"" THEN 205 
M=M-C: 


IF M=O THEN PRINT: GOTO 205 REM FILE End 


IF M>P THEN 199 ELSE IF B4(M)=0 THEN 209 REM Payments 


[F10.2°B4(M)} 


[F10.2°B5(M) } 


PRINT SPC(20): BO$(M); SPC(22-LEN(BOS(M))); 

F3=F3-B4(M): GOTO 205 

M=M-P: IF M>R THEN 202 ELSE IF B5(M)=0 THEN 209 REM Receipts 
PRINT SPC(20); B1$(M); SPC(22-LEN(B1$(M))); 

F3=F3+B5(M): GOTO 205 

X=67: IF Q=0O THEN LET X=51 REM Print Tota] at end 

IF H=E OR H=E-2 THEN PRINT SPC(X+2}); [A10°45]: G=1 

IF H=E-1 THEN PRINT SPC(X); [F11.2°F3]: G=1 


D=D+G: 


IF D<L THEN 209 REM Lines per page counter 


REM Delete next line if not using fan-fold paper 


IF Q>0 THEN PRINT \\\\\\\ REM Perf. gap = 7 lines 

D=0: IF Q>0 THEN 209 ELSE GOSUB 225: IF KO$="A" THEN 212 
H=H+1: IF H<=E THEN 166 REM Detect end of printing 

IF Q>0 THEN OUT#Q OFF: GOTO 212 

IF KO$<>"A" AND KO$<>"a" THEN GOSUB 225 

Q=0: GOTO 3 

REM 

REM --------------- "New Base” Routine --------------- 

REM 

GOSUB 232: IF Ki$="N" THEN 3 

I=1: G=24: K2$="New Title": GOSUB 250: IF K1$<>"" THEN LET BO$(0)=K1i$ 
FOR Y=1 TO C-1: KO$=A0$(Y): X=SEARCH(KO$,"|",3): GOSUB 287 
O=ASC(KO$): GOSUB 286: Z=ASC(KO$)-64: GOSUB 286: F1=VAL(KO$) 
IF O=80 THEN LET B2(Z)=B2(Z)+F1 ELSE LET B3(Z)=B3(Z)+F1 

X=Y: GOSUB 317: NEXT Y: C=1: GOSUB 336: GOTO 76 

REM 

REM ------------- "Key to Continue" Sub. ------------- 

REM 

K2$="KEY~ to” Continue" 


G=1: GOSUB 250: X=ASC(K1$) 

IF X>96 AND X<123 THEN LET X=X-32: K1$=CHR$(X) 

RETURN 

REM 

REM ----~---------- "Sure (Y/N)" Sub. ---------------- 
REM 

K2$="Sure’(Y/N)": GOSUB 226: IF K1$<>"N" AND Ki$<>"Y" THEN 232 
RETURN 

REM 

REM -------~-- “Previous Balance" Input Sub. --------- 
REM 

G=9: K2$="Balance’ Forward": GOSUB 250: GOSUB 242 


IF X=1 THEN 237 ELSE RETURN REM Loop if invalid amount 


REM 


REM 
X=1: F1=VAL(K1$): 


“Money Input" Sub. 


IF F1<=0 AND I=0 OR F1=>1000000 THEN 245 


X=0: F2=FRACT(F1): F3=F1-F2+FLT( INT(F2*100) )/100 
K1$=STR$(F3): K1$=K1$(;:2) REM Round off to 2 places 
RETURN 

REM 

REM --------~-------- Main "Input" Sub. ---~------------ 

REM 

G=12: K2$="Category" 

GOSUB 299: Y=LEN(K2$): CURS 1,15: PRINT [A64°45] [A63°32]; 
X=V+1-C: IF X>V THEN LET X=V REM Limit free files counter 
CURS 1,16: PRINT K2$;: CURS 52,16: PRINT INT(FRE($)); "~:"; X; 
CURS Y+3,16: Z=0: K1$="": FOR X=1 TO G: PRINT "*";: NEXT X 


CURS Y+1,16: PRINT "2°"; 
KO$=KEY$: X=ASC(KO$) : 


REM Print prompt line 


IF X=124 OR X=128 THEN 255 
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00256 
00257 

00258 
00259 
00260 
00261 

00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 

00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 

00332 
00333 
00334 
00335 
00336 
00337 
00338 
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IF X=8 OR X=127 THEN 261 ELSE IF X>13 THEN 259 

IF Z>0 THEN CURS 0: RETURN REM End if <CR> 

IF I1>0 THEN LET K1$="": RETURN ELSE 255 

Z=Z+1: CURS Y+Z+2,16: PRINT KO$; REM Print Input so far 
K1$=K1$+KO$: IF Z=G THEN RETURN ELSE 255 REM End of string? 
KO$:=K1$(;1, LEN(K1$)-1): K1$=KO$ REM <DEL>ete Key 

IF 2>0 THEN CURS Y+Z+2,16: PRINT “*";: CURS Y+2,16: Z=Z-1 
GOTO 255 

REM 

REM --------~----- "File entry” Print Sub. ------------ 
REM 

M=C: GOSUB 285 REM "M" is record number 

GOSUB 298: PRINT "FILE:” 

IF K4$="" OR K4$="#" THEN 271 REM Implement “Search" 
KO$=AO$(M): IF SEARCH(KO$,K4$)=0 THEN LET G=0: RETURN 


KO$=STR$(M)+".": KO$=KO$(;2): X=LEN(KO$) 

PRINT KO$; SPC(4-X);: KO$=AO$(M): GOSUB 286 REM Date 
PRINT SPC(9-LEN(K1$)); K1$; "°";: IF Q>0 THEN PRINT """; 
GOSUB 286: PRINT K1$; SPC(18-X); REM Item 


GOSUB 286: PRINT K1$; SPC(9-X); REM Cheque/Receipt No. 

GOSUB 286: M=0: IF Ki$="P" THEN LET M=11 REM Rec/Pay? 

IF Q=0 THEN PRINT K1$: "~"; REM Don't print in full on VDU 
GOSUB 286: N=ASC(K1$)-64: K2$=BO$(N): IF M=O THEN LET K2$=B1$(N) 
IF Q>0 THEN LET X=LEN(K2$): PRINT K2$; SPC(16-X); ELSE PRINT K1$; 
GOSUB 286: F1=VAL(K1$): IF F1>0 THEN PRINT SPC(M); [F10.2°F1] 
RETURN 


REM 

REM --~---------- Extract file section Sub. ----------- 
REM 

A0$(C)=A0$(C)+K1$+"/": RETURN REM "|" delimits section 
K1i$=""; X=SEARCH(KO$,"{"): IF X=O THEN RETURN 
K1$=KO$(;1.X-1): KO$=KO$(;X+1): IF Q>0 THEN LET X=X~-1 


RETURN 


REM 

REM . ---------- Extract Date Variables Sub. -~-------- 
REM 

K1$=A0$(X): F1=VAL(K1$): Y=SEARCH(K1$,"/")+1: K1$=K1$(;Y) 


F2=VAL(K1$): Y=SEARCH(K1$,"/")+1: K1$=K1$(;Y) 
F3=VAL(K1$): F4=100*F3 + F2 + F1/100: RETURN 

REM 

REM --~-~------ - Print Screen heading Sub. ----------- 
REM 

CLS 

CURS 17,1: INVERSE: PRINT "“"*°Dreamcards’ LedgerMaster **" 
NORMAL: PRINT [A64°45];: RETURN 


REM 

REM: «2335 eee eSeeee Print BASE Sub. ---~------------- 

REM 

GOSUB 298: PRINT "PAYMENT CATEGORIES: ~7("; BO$(0); “)": K2$="Category" 
IF P=O THEN RETURN REM Payments 

FOR X=1 TO P: KO$=BO$(X): F1=B2(X): GOSUB 310: NEXT X: RETURN 


GOSUB 298: PRINT “RECEIPTS CATEGORIES: ~"("; BO$(0); ")“ 
IF R=O0 THEN RETURN’ REM Receipts 
FOR X=! TO R: KO$=B1$(X): F1i=B3(X): GOSUB 310: NEXT X: RETURN 


J=X+3: K=3: IF X>10 THEN LET J=J-10: K=35 

CURS K,J: PRINT CHR$(X+64); ".7~"; KO$; SPC(13-LEN(KO$)); 
IF F1>0O THEN PRINT [F10.2°F1] REM Print any balance 
RETURN 

REM 

REM -~------------ “Counter” Print Sub. -------------- 
REM 

IF X>1 THEN 319 


CURS 1,12: PRINT [A26°32] "*"WAIT™*" [A92°32] 
IF X>0 THEN CURS 28,13: PRINT [14°X]; 


CURS 0: RETURN 

REM 

REM -------------- Tape I/O Prompt Sub. -------------- 

REM 

K2$="Base~(1)": IF N>2 THEN LET K2$=K2$+",“Files~(2),7Al17(3)" 


IF N>3 THEN LET K2$=K2$+", “Merge” (4)" 
GOSUB 226: H=INT(VAL(K1$)): IF H>N THEN LET H=0 


O=H: CURS 26,12: PRINT "“Start“tape": CURS 0: RETURN 
REM 

REM ------------- Initialise Arrays Sub. ------------- 
REM 

IF C=0 THEN 333 REM Print prompt if existing file 


GOSUB 232: IF K1$="N" THEN RETURN 

CLEAR: V=320: STRS(V*51+1400) REM V = Max. No. of files 
DIM AO(V+2), A1l(V+2), BO(20), B1(20), B2(20) 

DIM B3(20), B4(20), B5(20): GOSUB 337: GOSUB 338 


FOR X=C TO V+2: AO$(X)="": NEXT X: K1$="": RETURN 
FOR X=Y TO 20: BO$(X)="": B2(X)=0: NEXT X: RETURN 
FOR X=Y TO 20: B1$(X)="": B3(X)=0: NEXT X: RETURN 


POCKET PROGRAMS 


NOTES: 


edgermaster is ahome and small- 

business accounting program for 

tape-based Microbee computers, 

which first appeared in the May 
1985 issue of Your Computer. 

Since then I've been deluged with letters 
from Microbee owners who want to get 
Ledgermaster up and running on their disk 
machines, and from people who own other 
brands (poor souls) and want to convert it. 
As Dame Edna Everage would say, “How 
can | ignore my public?” So, after lots of 
re-programming, I’m pleased to announce 
the birth of ‘Son of Ledgermaster’, a new 
version designed for disk machines. In- 
structions for conversion to other BASICs 
are outlined below, for those who want to 
run Ledgermaster on inferior machines, 
such as the IBM and the Apple. 


Operating Instructions 
Ledgermaster enables you to create, man- 
ipulate, link or print disk ledgers, each of 
which comprises a base and up to 320 files 
or transactions. 

The ledger base is a list of up to 20 
categories of payments (for example, rent 


LEDGERMASTER {I 


wlll on 


cc 


wiv Vi 


You may be wondering 
why we have two versions of 
Ledgermaster in this 
magazine. The original 
financial database program 
was written for 
cassette-based Microbees, 
but enough people found it 
useful for us to publish a 
disk-based version. You'll 
still have to do an awful lot 
of typing, though ... 


cS GERMASTER 


and insurance), up to 20 categories of re- 
ceipts (such as wages and interest), and 
any ‘carried forward’ totals you want to 
include. It’s extremely important, since it 
forms the nucleus of the final balance 
sheet. 

When you run Ledgermaster, a menu 
gives you various options, depending on 
whether or not a ledger is present in mem- 
ory. As detailed instructions were given in 
the earlier article, | won't go into them in 
depth here. The following is only a sum- 
mary of the main points. 

Create: Allows entry of the base categories 
of a new ledger. ° 

Enter: Allows you to enter a transaction, 
requesting first the date (note error check- 
ing), then the name of the person who was 
paid (or who paid you), the cheque or re- 
ceipt number (if any), whether the transac- 
tion is a receipt or payment and its categ- 
ory, and finally the amount. All this data is 
stored in the file created for the transac- 
tion. 

Save: You can save a full ledger to disk or, 
if you want to ‘cut and paste’, save the base 
or the files alone. Unlike the tape version, >» 
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Ledgermaster II will ask you to specify the 
drive and filename under which the ledger 
is to be stored. 

Load: You can load a full ledger from disk, 
or the base or files on their own, or merge 
the files from a disk ledger with those of 
the ledger currently in memory. 

Sort: Sorts the ledger files in chronological 
order. 

Delete: Deletes a single file or a block of 
files from a ledger. 

New Base: Adds the amount of each file to 
the ‘carried forward’ total of the relevant 
base category, then erases all files. this 
allows you to ‘chain’ ledgers by starting a 
new one where the old one finished. 
Print: Ledgers can be displayed on the 
screen or output to a printer. If a Search 
string is specified, only files containing 
that string will be printed. If the search 
String is a hash mark and a number, such 
as #99, only those files after the specified 
file number will be printed. If no search 
string is set, the printout will comprise 
three parts: a list of the base categories, a 
printout of all ledger files and:a profit and 
loss statement. This is quite acceptable for 
business or taxation purposes. 


Entering The Program 

The listing shown below will not run, since 
memory use is too critical to allow REMs 
and spaces between commands. Enter it 
exactly as shown, but omit lines contain- 
ing only a REM and REMs at the end of 
program lines. Note that variables I, O and 
Q are listed in lower case so they won't be 
confused with Is and Os. 

Save this first draft of the program on 
disk. The next step is to use GX to delete all 
spaces in the program (GX/ //). This will 
take some time! Save the second draft, 
replace all up-arrows with spaces (GX/ t/ 
/), and re-number the program to begin at 
line | with one-line increments (RENUM 
1,1). You should now have a fully oper- 
ational Ledgermaster. 

Don’t despair if the thought of typing a 
program this size gives you the horrors! 
Send a cheque or postal order for $20 to 
Dreamcards, 8 Highland Court, Eltham 
North, 3095 (mail order only — remember 
to include a note with your return 
address!), and I'll send you a tape you can 
load to disk with TDCOPY, or with the 
BASIC load and save commands (sorry, | 
don’t have access to a 13 cm machine). If 
you have a Computer-in-a-Book system, 
you can send me a formatted disk and a 
cheque for $18, and I'll copy the program 
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LEDGERMASTER II 


for you. Make sure you pack it extremely 
well — disks sent through the mail tend to 
arrive in pieces! 


Conversion to Other BASICs 

If your machine has less than 32 Kbytes of 
user RAM, a simple (for example 8 to 12 
Kbytes) BASIC, or a screen width of less 
than 60 characters, forget it! Such a com- 
puter is really only suited to video games, 
and you'd be better off upgrading. But if 
your machine doesn’t fall foul of these 
minimum requirements, and you have at 
least a passing acquaintance with BASIC 
programming, conversion shouldn't be a 
major task. Assuming not everyone will 
feel up to it, should also make it clear that 
I don’t object to user groups or individuals 
distributing copies — provided my au- 
thorship is acknowledged. Otherwise, my 
team of trained lawyers and Mafia hit-men 
may descend on you from a very great 
height! 

The main conversion hassle you may 
have is the odd syntax of Microworld 
BASIC, particularly in its use of variables, 
sub-string extraction, print formatting and 
disk commands. 


Variable Conventions 
Microworld BASIC doesn’t allow you to 
assign any old name to a variable. Integer 
or whole-number variables must be desig- 
nated by a single letter, and cannot take 
part in real-number maths without special 
conversion functions. Real-number vari- 
ables are designated by a letter and a num- 
ber, such as F2, and can’t take part in inte- 
ger maths. Strings are designated in the 
same way as real-number variables, but 
are followed by the conventional ‘S’ sign. 
These rules impose some minor limita- 
tions on Microbee owners, but shouldn't 
cause problems in most other BASICs. 
Variable types may be converted with 
the INT, FLT, FRACT, STR and VAL com- 
mands. INT converts reals to integers by 
ignoring the fractional part (for example, 
Z=INT(FI) sets Z=18, where F!1=18.7), 
and FLT converts integers to reals 
(FI1=FLT(Z)/2 sets Fl=2.5, where Z=5). 
FRACT sets a real to the fractional part of 
another real, thus Fl=FRACT(FLT(Z)/2) 
leaves FI1=0.5 where Z=5. STRS trans- 
forms an integer or real into a string 
(AOS=STRS(X) leaves AOS containing ‘123’ 
if X=123). The leading space in the string 
is reserved for any minus sign. 
Variables may be DiMensioned into 
arrays, although string arrays must first be 
dimensioned as reals and then converted 


Assuming not everyone 
will feel up to it, 1 should 
also make it clear that | 
don’t object to user groups 
or individuals distributing 
copies — provided my 
authorship is 
acknowledged. 


(as in line 360). The CLEAR command is 
used to erase all existing array dimen- 
sions. 


Sub-String Extraction 

Microworld BASIC doesn’t use LEFTS, 
RIGHTS or MIDS, but rather the command 
vS(;s,e), where vS is the string from which 
the sub-string is to be taken, ‘s’ is an inte- 
ger denoting the first letter to be included, 
and ‘e’ is an integer denoting the last. So, if 
A0S=A1S(;4,X), AlIS=’hippopotamus’ and 
X=6, AOS is set to ‘pop’. Where the com- 
mand includes only a single integer or in- 
teger expression, all letters from the one 
designated by the integer to the end of the 
string will be extracted (in our last exam- 
ple, if AOS=A1S(;6), AOS would contain 
‘potamus ). 

The search command sets an integer to 
the position within a string of a particular 
sub-string, taking the format 
i=SEARCH(aS,bS,n), where ‘i’ is the inte- 
ger variable to be set to the search result, 
aS is the string to be searched, bS is the 
String you’re searching for and ‘n’ is an 
integer which specifies that you’re looking 
for the ‘nth’ occurrence of bS. If ‘n’ is omit- 
ted, the command assumes you're looking 
for the first occurrence. For example, if 
C=SEARCH(AIS,A0$S), AlS$='hippo- 
potamus’ and A0S='pot’, C would equal 6 
(the sub-string was found starting at the 
6th letter of AlS). If AOS=’cat’ the search 
result (C) would equal 0, indicating that 
the sub-string wasn’t found. If AOS='p’ and 
we used B=SEARCH(AIS,A0S,3), B would 
equal 6, since the third occurrence of the 
sub-string starts at letter 6 of AIS. 

If your BASIC has no search command, 
you can synthesise it with a suitable sub- 
routine. If we use variable X as the search 
result, XOS as the string under search and 
X1S as the sub-string, the subroutine will 
be as follows: 


1000 REM ‘SEARCH’ 

1010 W=1: X=0: Y=LEN(X1$)-1: 
1020 IF Z<0 THEN RETURN 

1030 

1040 IF X2$=X1$ THEN LET 
1050 W=W+1l: IF W<=Y THEN 
1060 RETURN 


Print Formatting 

Ledgermaster uses a 64 by 16 screen, 
though there is no reason why a larger (say 
80 by 24) format wouldn't work just as well. 
The display/print commands you'll en- 
counter in the program are listed below. 
CLS: Clears the screen and positions the 
cursor at top left. 

CURS a,b: Positions the cursor ‘a’ (1 to 64) 
characters to the right of screen and ‘b’ (1 
to 16) lines down. 

CURS 0: Turns off the flashing cursor until 
the next PRINT command. 


NOTES: 


xX=W:; 


LEDGERMASTER II 


replacement Subroutine 


Z=LEN(X0S$)-Y 


X2S=X0S(;W,W+Y): REM ie: X2S=MIDS(X0$,W,W+tY) 


RETURN 


1030 


PRINT: Prints a carriage return and line 
feed. It’s the equivalent of PRINT CHRS(13) 
CHR$(10). | 
PRINT SPC(n): Prints ‘n’ spaces — like 
PRINT TAB(n) PRINT [An c]. The square 
brackets designate a ‘PRINT USING’ com- 
mand and the ‘A’ denotes ASCII text. This 
version prints the character that is the 
ASCII equivalent of integer ‘c’, ‘n’ times. It’s 
the same as ‘FOR X=I1 TO n: PRINT 
CHRS(c);: NEXT X’. 

PRINT [Iv n]: Prints the integer variable ‘v’ 
right-justified in a field ‘n’ characters wide 
(only used in line 343). 

PRINT [Fn.m r]: Prints the real variable ‘r’ 
right-justified in a field ‘n’ characters wide. 
Limit the real number to ‘m’ decimal 
places. 

OUT#n: A Microbee curiosity used to re- 
direct print output (for example, lines 166 
and 216, where variable q designates that 
print is to go to the screen if q=0, or toa 
printer if g>0). OUT#0 and IN#0 are used 
at various points in the program to turn the 


screen back on where it has been disabled 


by some other command. 

Disk Commands: Microworld BASIC uses 
the OPEN command to open a disk file for 
sequential read or write operations. The 
format is: 

OPEN ‘f’,6,"d:FILENAME.EXT” 
where ‘f’ is the function (‘Il’=READ, 
‘O’=WRITE), the ‘6’ is a port vector alloca- 
tion which can be ignored in conversion, 
‘d' is the drive code (‘A’, ‘B’ or ‘C’), and the 
FILENAME and EXTENSION are as in CP/ 
M (maximum of eight and three characters 
respectively). A string variable may be sub- 
stituted for any of these attributes. 

After a file has been OPENed, a sequ- 
ence of IN and OUT commands will be 
used to turn off the screen and re-direct 
output to the disk port. These commands 
are irrelevant on other machines. Various 


other commands, which I've listed below, 
are used in association with disk opera- 
tion. 

DISKRESET n: This resets the computer's 
knowledge of the directory of the disk in 
drive ‘n’, preventing a BDOS error if the 
disk is changed before a READ/WRITE op- 
eration is performed. | 
CLOSE 6: This closes the disk file that was 
opened with the OPEN command. The ‘6’ 
is a Microbee peculiarity. 

ON ERROR GOTO: Microworld BASIC 
generates an Error Report if you try to — 
OPEN a file which doesn’t exist on the 
particular disk. This command suppresses 
the report and directs the program to con- 
tinue at the specified line number if an 
error OCCUIS. | 

ON ERROR GOTO 0: Cancels the above. 
General Syntax: Some of the general com- 
mands used in Microworld BASIC differ a 
little in other dialects. The ON v GOTO 
command (see Line 18) jumps to the first 
line number where v=1, the second where 
v=2, and so on. Some BASICs jump to the 
first line number where v=0, and if yours is 
one of these the command should be 
amended to ON v-!1 GOTO. The STRS(v) 
command reserves v bytes of memory for 
the strings, and v=FRE(S) sets v equal to 
the number of free bytes of string space 
remaining at the time it’s executed. PLAY 
x,y plays a note ‘x’ (from low frequency=1 
to high frequency=22) for y/20 seconds. If 
x=0 a silent delay is produced. VS=KEYS 
reads the keyboard and sets string vS to 
any key being pressed at the time. If no key 
is being pressed, the instruction doesn't 
wait, but returns a null string (ASCII value 
128). 


How It Works 

Much of Ledgermaster’s operation is ex- 
plained by REMs in the listing, but you'll 
also need to read these notes to under- 
Stand it fully. The following are the main 
program variables (‘n’ is an integer in the 
range 0>n<=V). 

C: Number of current file being accessed. 

H: Disk file type (Base=1, Files=2, Full 
Ledger=3). 

P: Number of ‘payment’ categories in Base. 
R: Number of ‘receipt’ categories in Base. 

S: Files in ledger are Sorted (=1) or Un- 
sorted (=0). 

V: Maximum number of files: must be >C. 

K5S: Ledger filename (maximum of eight 
characters). 

A0S(n): File string — contains date, payee/ 
or, receipt number, payment/receipt (P or 


R), category designation letter and » 
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Much of Ledgermaster’s 
operation is explained by 
REMs in the listing, but 
you'll also need to read 
these notes to understand 
it fully. 


amount. Fields are separated by 

BOS(n): Payment category. 

B1S(n): Receipt category. 

B2(n): Payment category amount ‘carried 
forward’. 

B3(n): Receipt category amount ‘carried 
forward’. 

When the program is first run, the In- 
itialisation routine (accessed from line 2) 
reserves sufficient string space, clears and 
resets the arrays, and converts arrays re- 
quired for strings (AOS, BOS and BIS) into 
String arrays. V determines the function of 
the initialisation routine — the maximum 
number of files per ledger can be altered 
simply by changing the value assigned to it 
in line 357. Crashes will occur if this ex- 
ceeds 320 on a 32 Kbyte Microbee. Owners 
of other machines may have to experiment 
to find an appropriate value. 

Lines 3 to 5 then set N to a value which 
indicates the status of the arrays (or 
whether a base and/or files are present), 
and this is used by lines 6 to 14 to deter- 
mine what options will be displayed on the 
menu. Line 15 alerts you if the ledger is 
full. The program then prompts you to 
select an option, and jumps to the 
appropriate section when a valid key is 
pressed (lines 17 to 18). 

Note the unusual input subroutine 
(commencing in line 274). This prints a line 
of hyphens across the 15th line of the 
screen, then a prompt (K2S) at left of the 
16th line, followed by a number of stars (*), 
according to the maximum number of 
characters (G) allowed in the input field. As 
each character is entered, it replaces one 
of the stars, the input ending when RE- 
TURN is pressed or when the field is full 
(lines 281, 282 and 284). DELete and 
BACKSPACE are implemented by lines 285 
and 286. A null string may only be entered 
if I>0 (line 282). 


Create Base 
Line 68 first asks for a ‘File Title’ to help 
identify the file, then stores it in BOS(0) 
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(line 69 — be careful when converting, as 
some BASICs don’t permit an array ele- 
ment numbered 0). If yours is one, I'd sug- 
gest you DIM BOS to 2! elements, use 
B0S(21) to store the File Title and modify 
the rest of the program accordingly. The 
routine goes through two similar loops, 
the first (Payments) in lines 70 to 73, and 
the second (Receipts) in lines 75 to 78. 
These display the respective base categor- 
ies on each loop via one of two access 
points in the ‘Print Base’ subroutine, then 
ask for a category and an ‘Amount Carried’. 
These inputs are stored in the appropriate 
arrays. The loop terminates when the base 
category counter (P or R) reaches 20, or ifa 
null is entered when you're prompted for 
the category. T is then set to the number of 
categories having ‘Carried Forward’ 
amounts, C is set to | to indicate that a 
base is present, and the program returns to 
the Menu. 

Enter begins at line 86. S is set to 0: the 
new entry means the ledger is ‘unsorted’, 
the File string (AOS(C)) is set to a null, and 
the ‘File Entry’ print subroutine is acces- 
sed. Since there is nothing in the file, only 
the file number (C) is displayed. If at least 
one file is present, line 88 accesses the 
‘Extract Date Variables’ subroutine, and 
Fl, F2 and F3 are set to the date of the last 
file (see below). Lines 89 to 94 ask for the 
day, month and year parts of the date, 
some error checking being performed at 
each level (for example, ‘day’ must be >0 
and <32). Entries are stored in F1 (day), F2 
(month) or F3 (year). A null entry causes 
the program to jump the remaining date 
entry lines, leaving the variables holding 
the values borrowed from the last file by 
line 88. Lines 95 to 99 check that the day 
doesn’t exceed the number of days in that 
month and that the 29th of February hasn't 
been entered on a non-leap year, an error 
message being generated if an illegal value 
is detected. Lines 100 to 102 convert the 
date variables into a string. 

Line 103 trims the leading space from 
the date string, displays it, then asks for a 
‘From/to’ input. If this is a null, ‘Paid’ is 
inserted into the file by line 104. Line 105 
displays the file so far and asks for a receipt 
or cheque number, and line 106 inserts 
‘B’card’ into the file if ?B (CTRL B) was 
pressed, or ‘Cash’ if f A was pressed. Line 
107 displays the file, asks if it’s a receipt or 
payment (‘R’ or ‘P’ is stored). Lines 109-113 
then update the file, display the Base Re- 
ceipt or Payment categories (as appropri- 
ate), and ask for one to be selected. The 


letter code is stored and you are asked for 
the ‘Amount’ (line 115 — error signalled by 
X=1). Lines 116 to 119 permit the current 
file to be re-typed, the next file to be en- 
tered, or a return to the menu. 


Delete starts at line 142, asking for the 
number of the (first) file to be deleted (0). 
Invalid file numbers are rejected, other- 
wise the file is displayed, and line 144 asks 
if it’s the one you want. If the answer is ‘N’ 
the program returns to the menu, other- 
wise line 145 asks for the number (L) of the 
last file to be deleted (displayed by line 
148), or (RETURN) if only one file is in- 
volved. Lines 149 to 150 make the deletion, 
condensing the arrays to allow for the mis- 
sing file/s. 

Sort starts at line 22 (low in the program 
to enhance its speed), asks if you’re sure, 
and refuses to operate if the ledger is 
already sorted (S=1). Line 24 then con- 
verts the date part of each file into a num- 
ber (F4) and stores it in the Al array, then 
lines 25 to 29 carry out an insertion sort of 
the file variables. BASIC sorts are extreme- 
ly slow, so a counter is displayed as each 
array element is selected. S=1 on comple- 
tion. 

New Base begins at line 222. This line 
asks if you're sure and line 223 asks fora 
new File Title and stores it in BOS(0) (see 
‘Create Base’). A null input retains the old 
File Title. Lines 224 to 225 begin a loop 
which extracts the ‘P’ or ‘R’ string from 
each file (O is set to its ASCII value), the 
Category string (Z is set to the appropriate 
number from | to 20), and the Amount 
string (converted to a real in Fl). Line 226 
adds FI to the the appropriate element in 
either the B2 or B3 array, and the loop 
continues. Line 227 calls the subroutine at 
line 360, and returns to the menu. 


Print starts at line 154, asking if you want 
any ‘Search String’ (K4S). If K4S begins with 
a hash mark (#), line 155 sets H to the 
value of any following number (line 156 
rejects invalid file numbers). Line 157 asks 
if you’re using the VDU ora printer. If it’s a 
printer, lines 159 to 164 allow you to select 
the type. During these routines Q is set to 
the output mode (0 if VDU, >0 if printer), 
and L is set to the number of lines per page 
(VDU=12, Printer=57). If printer output 
was selected, line 166 asks for a key, then 
turns the VDU off and the printer on. Line 
167 copies the Base ‘Carried Forward’ 
arrays (B2 and B3) into the ‘Ledger Ba- 
lance’ arrays (B4 and B5). Lines 168 to 169 
set some of the print variables, E being the 


total number of lines in the file, O the >» 


Sort starts at line 22 (low 
in the program to enhance 
its speed), asks if you're 
‘Sure’, and refuses to 
operate if the ledger is 
already sorted (S=1). 


number of lines occupied by the base cate- 
gories, and U and W being counters. 

The print routine loop begins at line 170, 
lines 170 to 172 detecting any key pressed, 
aborting if it’s ‘A’, or looping until another 
key is pressed if not. Lines 173 to 183 use 
the line counter (D) to detect top of page, 
and print a page heading if a printer is used 
or clear a section of screen if the VDU is 
used. If at the top of the listing (o=0) and if 
no search string is defined, the Base cate- 
gories are printed out by lines 184 to 194, 
otherwise line 195 prints what is being 
searched for. Lines 196 to 197 print the 
files themselves by accessing the ‘File En- 
try’ print subroutine (fully detailed by 
REMs in the listing), then lines 198 to 199 
add the Amount to the appropriate Ba- 
lance array element. Lines 200 to 210 are 
invoked once the files are printed, and are 
responsible for printing the final balance. 

Load and Save are detailed by REMs in 
the listings and the descriptions of the 
main variables (above). O=Command 
(Cmnd.) type (files only, full ledger, and so 
on) and H=disk file type. Ledger files are 
saved or loaded three at a time, since it’s 
the most efficient way to use the Microbee 
cassette system. Although not necessary 
for disk use, it’s been retained to maintain 
consistency with the cassette version. 


Dead Bugs 

Two bugs have been corrected in this ver- 
sion. When entering a file cheque/receipt 
number a 7 C entry was intended to enter 
‘Cash’. This didn’t work because the 
BREAK key was disabled, hence it’s been 
changed to fA (line 106). A new line (48) 
has been inserted in the Load Routine to 
overcome a problem which occurred when 
‘Base’ alone was loaded. 0 
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POKE 140,1 REM Disable BREAK key 

GOSUB 357 REM Initialise Storage Arrays 

IN@0: OUT#0 REM VDU On —- Main program loop begins here 
N=8: IF BO$(0)="" THEN LET N=2 ELSE IF C=1 THEN LET N=4 
KOS=KEY$: K4$="": i=0: q=0: IF C<3 AND N=8 THEN LET N=5 
GOSUB 322: INVERSE: CURS 28,4: PRINT "*MENU*": NORMAL 

PRINT \ SPC(14) "“Create*..... a eas 

PRINT SPC(4) "“Load*....... “2": IF N=2 THEN 16 REM No Base 
PRINT SPC(14) “Enter%’...... ee Bue 

PRINT SPC(4) "Save*....... “4": IF N=4 THEN 16 REM No Files 
PRINT SPC(14) “Delete*..... “~5";: IF N=5 THEN 16 REM <3 Files 
PRINT SPC(4) “Sort%’....... 6" 

PRINT SPC(14) “Print’...... wae ue 

PRINT SPC(4) "New*Base*...*8" 

IF C=V+l THEN PRINT \ SPC(21) "****LEDGER*FULL****" 
K2$="Select“Menu*Option”": GOSUB 246 REM Get key 
X=INT(VAL(KOS$)): IF X=0 OR X>N THEN 16 REM Check key range 
PLAY 22,1: ON X GOTO 68,33,86,123,142,22,154,222 

REM ‘ | 

REM, ASS SSeoSS-SS2-oe> Sort. Routine ===—==]——==5S=—45-4See> 
REM 

GOSUB 252: IF K1$="N" OR S=1 THEN 3 REM "No" or already sorted? 
X=0: GOSUB 341 REM Set Al Array to file dates 

FOR X=1 TO C-1: GOSUB 316: A1l(X)=F4: NEXT X 

FOR X=1 TO C-2: GOSUB 341: FOR M=X+1 TO C-1 =REM Sort 


REM Later or same date? 
AO$(M)=A0$(X): AO$(X)=KO$ REM Substitute files 


IF Al(M)=>A1(X) THEN 29 
KOS$=A0$(M): 


F1l=A1(M): A1l(M)=A1(X): Al(X)=F1 REM Substitute sort dates 

NEXT M: NEXT X: S=1: GOTO 82 

REM 

REM ----~----------------- Load —------—--—------------~------ 

REM | 

N=3: IF C>1l AND C<V+l THEN LET N=4 REM Merge available? 
K5$="LOAD": GOSUB 231: IF K2$="" THEN 82 REM Get Filename 

ON ERROR GOTO 239: OPEN "I",6,K5$+".LGR": CLOSE 6 REM Valid? 

ON ERROR GOTO 0: GOSUB 348: IF o=0 THEN DISKRESET "A": GOTO 3 
OPEN "I",6,K5$+".LGR": IN#60ON: OUT#0: OUT#OOFF REM Get disk file 
INPUT K1$,D,H,X,Y,Z,E REM Input File Header 

IN¢0: OUT#0 REM VDU back on 

IF o=3 AND H<3 THEN LET o=0 REM Cmnd. = Ledg., Disk=Files/Base 
IF o=1 AND H=2 THEN LET o=0. REM Cmnd.=Base, Disk=Files 

IF o>1 AND H=1 THEN LET o=0 REM Cmnd.=Files/Ledg., Disk=Base 
KoO$="": J=1: L=D-1: IF o<4 THEN 46 REM Goto 46 if not Merge 
J=C: L=L+C: C=L: S=0: KO$="*-*Merge" ° 

IF C>V+1l THEN LET -‘C=V+1: KOS$=KO$+"%(Part*only)" 

IF o=2 OR o=3 THEN LET C=D: S=Z REM Files/Ledg. 

IF o=1 OR o=3 THEN LET BO$(0)=K1$: P=X: R=Y: T=E REM Base/Ledg. 
IF o=1 AND C=0 THEN LET C=1 REM Corrects bug in tape version 
K1i$=K1$+K0$: CURS 0,12: PRINT [A64*32] REM Display File Title 
CURS (62-LEN(K1$))/2,12: PRINT Ki$: CURS 26,13 

IF H=1 OR o=1 OR C=1 THEN PRINT "**(Base)": GOTO 54 

IF (H=2 OR o=2) AND C>1 THEN PRINT "**(File)": GOTO 54 

IF S=0 AND C>1 AND o>1 THEN PRINT "(Unsorted)" 

IF o=O THEN 82 ELSE LET N=X: IF Y>X THEN LET N=Y 

CURS 0: PLAY 0,10: IN#60N: OUT#0: OUT#OOFF REM VDU Off, Disk On 
FOR X=1 TO N’- REM Load Base 

IF (o=2 OR o=4) AND H=3 THEN INPUT KO$,KOS$,F1,F1 REM Dummy load 
IF o=1 OR o=3 THEN INPUT BOS$(X),B1$(X),B2(X),B3(X) REM Real load 
NEXT X: IF o=1 THEN 61 ELSE FOR X=J TO C STEP 3. REM Load Files 
INPUT AO$(X),A0$(X+1),A0$(X+2): NEXT xX 

IF C<V+1l AND o>1 THEN GOSUB 360 REM These lines clear 

Y=P+1: IF P<20 THEN GOSUB 361 REM irrelevant array 

Y=R+1: IF R<20 THEN GOSUB 362 REM elements. 

IN#O: OUT#0: CLOSE 6: DISKRESET "A": GOTO 82 REM Tidy up and end 
REM 

REM =oSeeeoeeeece sess "Create" Routine ~------------------ > 
REM 
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GOSUB 355: IF K1$="N" THEN 3 REM Are you sure? 
G=24: K2$="File*Title": GOSUB 322: GOSUB 274: BOS$(0)=K1$: i=1 
GOSUB 328: P=P+1: GOSUB 269: BO$(P)=K1$: K3$=K1$ REM Paymer.ts 


IF K3$="" AND P=1 THEN LET BO$(1)="Payment": GOTO 73 

IF K3$="" THEN LET P=P-1: GOTO 74 

GOSUB 257: B2(P)=F3: IF P<20 AND K3$<>"" THEN 70 

PLAY 22,1 

GOSUB 331: R=R+1l: GOSUB 269: B1$(R)=K1$: K3$=K1$ REM Receits 
IF K3$="" AND R=1 THEN LET B1$(1)="Receipt": GOTO 78 

IF K3$="" THEN LET R=R-1: GOTO 79 


GOSUB 257: B3(R)=F3: IF R<20 AND K3$<>"" THEN 75 

PLAY 22,1: T=0: FOR X=1 TO 20: IF B2(X)>0 THEN LET T=T+1 

IF B3(X)>0 THEN LET T=T+1l REM Count no. of Carried Forward’s 
NEXT X: C=1l: K3$="":; GOTO 3 

CURS 0: PLAY 22,1; 0,5: GOTO 3 


REM 

REM S34 3S<4-S35>sS545= Enter" ROUtine —_S— $2 S4e——S34se> 
REM 

IF C>V THEN 3 REM No more entries if ledger full 

S=0: AO$(C)="": M=C: GOSUB 292: i=C-1: G=2 REM Display file 


IF C>l THEN LET X=C-1: GOSUB 316 REM Get last file date 
K2$="Day": GOSUB 274: IF K1$="" AND F1>0 THEN 95 
F1=VAL(K1$): IF F1l=0 OR F1>31 THEN 89 REM Fl=Day 


K2$="Month": GOSUB 274: IF K1$=""_ AND F2>0 THEN 95 
F2=VAL(K1$): IF F2=0 OR F2>12 THEN 91 REM F2=Month 
K2$="Year": GOSUB 274: IF K1$="" AND F3>0 THEN 95 


F3=VAL(K1$): IF F3=0 THEN 93 REM F3=Year 

RESTORE: FOR X=1 TO INT(F2): READ Z: NEXT X REM Check days 
DATA 31,28,31,30,31,30,31,31,30,31,30,31 REM in month and 
IF FRACT(F3/4)=0 AND F2=2 THEN LET Z=29 REM Allow for Feb. 
IF INT(Fl)<=Z THEN 100 REM Invalid no. of days in month 

CURS 1,16: PRINT "****DATE*ERROR****";: PLAY 10,12: GOTO 89 
KOS=STRS(INT(F1)): K1$=K0$(;2)+"/" REM Form date string 
KOS$=STRS(INT(F2)): K1$=K1$+K0$(;2)+"/" 

KOS=STRS(INT(F3)): IF F3<10 THEN LET K1$=K1$+"0" 
K1$=K1$+K0$(;2): GOSUB 291: K2$="From/To": G=16: i=1 

GOSUB 274: IF K1$="" THEN LET K1$="Paid" 

GOSUB 291: K2$="Cheque/Receipt*No.": G=7: GOSUB 274 

IF X=2 THEN LET K1$="B’card" ELSE IF X=1 THEN LET K1$="Cash" 
GOSUB 291: K2$="Receipt*(R)*or*Payment*(P)" 

GOSUB 246: IF K1$<>"R" AND K1$<>"P" THEN 108 

GOSUB 309: GOSUB 322 

IF K1$<>"P" THEN 112 

M=P: IF M=1 THEN LET K1$="A": GOTO 114 ELSE GOSUB 328: GOTO 113 
M=R: IF M=1 THEN LET K1$="A": GOTO 114 ELSE GOSUB 331 
K2S="Category": GOSUB 246:X=X-64: IF X<1 OR X>M THEN 113 
GOSUB 291 

G=9: i=0: K2$="Amount": GOSUB 274: GOSUB 262: IF X=1 THEN 115 
GOSUB 291: K2$="Next=<CR>**Menu=M**Re-do=R*": i=1 

GOSUB 246: IF K1$="R" THEN 87 REM Re-do? 

IF K1$<>"M" AND X<>128 THEN 117 

C=C+1: IF X=128 THEN 86 ELSE 3 REM Update file counter & loop 
REM 


REM ~--~----~---------- "Save" Routine -------------------- 
REM 
N=3: IF C=1 THEN LET N=1 REM If C=1 then allow Base Save only 


=3 

K5$="SAVE": GOSUB 231: IF K2$="" THEN 82 REM Drive/Filename 
q=0: ON ERROR GOTO 126: OPEN "I",6,K5$+".LGR": q=1l REM New File? 
ON ERROR GOTO 0: IN#0: OUT#O: CLOSE 6: IF q=0 THEN 129 
K2$="OVERWRITE*"+K5$+"*(Y/N)": GOSUB 246 REM Filename in use 

IF K1$="N" THEN 124 ELSE IF K1$<>"Y" THEN 127 

GOSUB 348: IF H=0 THEN DISKRESET "A": GOTO 3 REM Menu if invali: 
KO$=B0$(0): N=P: IF R>P THEN LET N=R REM is Base array counter 
CURS 0,12: PRINT (A24*%32]; "Saving*"; K5$; [(A33*32]: CURS 0 

OPEN "0",6,K5$+".LGR": OUT#6 REM Next line saves Header 

PRINT ROW ROG ee es gn ee Pe es Ree eS gn gl 

IF H=2 THEN 136 ELSE FOR X=1 TO N’' REM Save Base arrays 
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PRINT BOS$(X);",";B1$(X);"%,";B2(X);",";B3(X): NEXT X 

IF C<2 OR H=1 THEN 64 REM End if Base only 

FOR X=1 TO C STEP 3 REM Save File array 

PRINT AO$(X);",";A0$(X+1);"%,";A0$(X+2): NEXT X: GOTO 64 

REM 

REM ~-~--3 3-33 "Delete" Routine --~-----------------~- 

REM 

G=3: K3$="“*file*to*be*deleted": K2$="First"+K3$ REM Get first 
GOSUB 274: o=INT(VAL(K1$)): IF o<l1 OR o=>C THEN 142 REM Valid? 
M=o: GOSUB 292: GOSUB 252: IF K1$="N" THEN 3 REM Display file 
G=3: K2$="Last"+K3$+"*%-“or*<CR>": i=1: GOSUB 274 REM Get last 
L=INT(VAL(K1$)): IF K1$="" THEN LET L=o REM Single file only 
i=0: IF L<o OR L=>C THEN 145 ELSE IF L=o THEN 149 REM Valid? 
M=L: GOSUB 292: GOSUB 252: IF K1$="N" THEN 145 REM Display file 
K3$="":; Z2=L-o+1: X=0: GOSUB 341: FOR X=L+1 TO C REMAdjust files 
AO0$(0)=A0$(X): o=o0+1: NEXT X: C=C-Z: GOSUB 360: GOTO 82 

REM | 

REM ----3 3-3 r rr rene “Print” Routine -----------~--------- 

REM 

G=20: i=l: H=1: K2$="String*search": GOSUB 274: K4$=K1$ 

IF ASC(K4$)=35 THEN LET H=INT(VAL(K4$(;2))): K4$="@" 

IF H=0 OR H>C-2 THEN 154 REM Loop if invalid number in K4$§ 
K2$="Screen*(S)*or*Printer*(P)": GOSUB 246 

L=12: IF K1$="S" THEN 167 ELSE IF K1$<>"P" THEN 3 

GOSUB 322: K2$="PRINTER*Type:*": PRINT \\ SPC(15); K2$ 

PRINT \ SPC(20) "Parallel******-*““*Key“*1" REM q is MicroBee 


PRINT SPC(20) "Serial*300bd**-—**Key%*2" REM Printer port 
PRINT SPC(20) "Serial*1200bd*-—**Key%*3" REM allocation 
PRINT SPC(20) "Abort*-*“*any“*other*Key" REM vector. 


GOSUB 246: X=X~-48: IF X<0O OR X>4 THEN 3 

L=57: q=X: IF X>1 THEN LET q=X+2 REM Adjust to port number 
GOSUB 245: OUT#0: OUT#OOFF: OUT#qON: PRINT REM Printer on 

FOR X=1 TO 20: B4(X)=B2(X): BS(X)=B3(X): NEXT X REM Balance var’s 
D=0: F3=0: F4=1: o=T: U=0: W=0: E=C+P+R+T+4 

IF K4$<>"" THEN LET E=C: o=1 REM If Search String defined 

G=1: KO$=KEY$: IF KO$="" THEN 173 ELSE PLAY 22,2 REM Key? 

IF KO$S="A" OR KO$="a" THEN 216 REM Abort if Key <A> 

K1$=KEY$: IF K1$="" THEN 172 REM Wait for another key 

IF D>O THEN 184 ELSE IF q>0O THEN 177 REM D is line counter 

REM Next line clears screen if D=0O & not using printer 

FOR X=3 TO 14: CURS1,X: PRINT [A64*32]): NEXT X: CURS1,3: GOTO 184 
REM Next 7 lines print page heading if D=0 & using printer 

D=2: PRINT "LEDGER:**"; BO$(0); SPC(26-LEN(BO$(0))); 

K2$="*to*": IF S=0 THEN 181 REM Sorted? 

KO$=A0$(1): GOSUB 310: K2$=K1$+K2$ REM Print File@#l date 
KO$=A0$(C-1): GOSUB 310: K2$=K2$+K1$: PRINT K2$; REM Print last 
PRINT SPC(34-LEN(K2$)); "Page*”"; F4: F4=F4+1 REM Print Page No. 
PRINT "No. *****DATE****TRANSACTION"; SPC(17); REM Print heading 
PRINT "CLASS"; SPC(16); "“AMOUNT*($)": PRINT (A7%45] 

IF o=0 OR K4$<>"" THEN 194 REM If Search String or not at top 
U=U+1: IF U>P THEN 188 REM Base Cat’s (Payments) printed? 
Fl=B2(U): IF F1l=0 THEN 185 REM Any Carried Forward? 

KO$=B0$(U): X=LEN(KO$): 220: GOTO 190 

W=W+l: F1l=B3(W): IF F1l=0 THEN 188 REM Receipts 

KO$=B1$(W): X=LEN(KO$): 2211 

IF o=T THEN PRINT "“CARRIED*FORWARD:***"; ELSE PRINT SPC(20); 
IF q>O THEN PRINT SPC(22); KO$; SPC(27-X-Z); 

IF q=0 THEN PRINT KO$; SPC(33-X-Z); 

o=o-1: PRINT [(F10.2*F1]: GOTO 211 REM Print amount carried 

IF K4$="" OR K4$="#" OR oO<>1 THEN 196 

PRINT \ SPC(10); "SEARCH;*"; K4$ \: o=0: G3: GOTO 211 

M=H: IF K4$="" THEN LET M=H-T 

IF M<l OR M>=C THEN 200 ELSE GOSUB 293 REM Print file 

IF M=O0 THEN LET B5(N)=BS(N)+F1 ELSE LET B4(N)=B4(N)+F1 

GOTO 211 REM Add balance in file to BASE category 

IF K4$<>"" THEN 211 REM Goto 211 if Search string set 

M=M-C: IF M*0 THEN PRINT: GOTO 211 REM File End be 


NOTES: 
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NOTES: 
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~ LEDGERMASTER II 


00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 


IF M>P THEN 205 ELSE IF B4(M)=0 THEN 215 REM Payments 
PRINT SPC(20); BOS$(M); SPC(22-LEN(BOS$(M))); [(F10.2*B4(M)] 
F3=F3-B4(M): GOTO 211 

M=M-P: IF M>R THEN 208 ELSE IF B5(M)=0 THEN 215 REM Receipts 
PRINT SPC(20); B1$(M); SPC(22-LEN(B1$(M))); (F10.2*B5(M)] 
F3=F3+B5(M): GOTO 211 

X=67: IF q=0O THEN LET X=51 REM Print total at end 

IF H=E OR H=E-2 THEN PRINT SPC(X+2); (A10*45]: G=1 

IF H=E-1 THEN PRINT SPC(X); [F11.2*F3]: G=1l 

D=D+G: IF D<L THEN 215 REM L is Lines per page counter 
REM Delete next line if not using fan-fold paper 

IF q>O THEN PRINT \\\\\\\. REM Perforation gap = 7 lines 
D=0: IF q>O THEN 215 ELSE GOSUB 245: IF KO$="A" THEN 218 
H=H+1: IF H<=E THEN 170 REM Detect end of print run 

IF q>O THEN OUT#qOFF: GOTO 218 

IF KO$<>"A" AND KOS$<>"a" THEN GOSUB 245 

q=0: GOTO 3 

REM 

REM -=—===S=—4<ssS+==> "New Base" Routine ~----------- 3-3-3 rr 
REM 

GOSUB 252: IF K1$="N" THEN 3 REM Are you sure? 


1=1:G=24:K2$="New*Title":GOSUB 274: IF K1$<>"" THEN LET BO$(0)=K1$ 


FOR Y=1 TO C-1: KOS=A0$(Y): X=SEARCH(KOS$,"{",3): GOSUB 311 
o=ASC(KO$): GOSUB 310: Z=ASC(KO$)-64: GOSUB 310; F1=VAL(KO$S) 
IF o=80 THEN LET B2(2Z)=B2(Z)+F1 ELSE LET B3(Z)=B3(2)+F1 

X=Y: GOSUB 341: NEXT Y: C=1: GOSUB 360: GOTO 79 

REM 

REM --~--------— Drive/Filename Selection Sub. ~------------- 
REM 

POKE 257,1: K2$="Select*Drive?*(A/B/C)": GOSUB 246 

IF X<65 OR X>67 THEN LET K2$="": GOTO 235 REM A, B & C only 
DISKRESET K1$: K2$=K5$+":*Filename": G=8: GOSUB 274 

KS$=K1$ REM Store Filename in K5§ 

POKE 257,0: RETURN REM POKE 257 forces Upper/Lower case 
REM 

REM S=> SSS S= Invalid File Reference Message ~—-~~-~—~~--~-~-— 


ON ERROR GOTO 0: IN#0: OUT#0: CLOSE 6: CURS 1,16 REM Close file 
PRINT (A63°%32];: CURS 22,16: PRINT "“<<<“*NO*SUCH“FILE% >>>"; 
CURS 0: PLAY 0,20: DISKRESET "A": K5$="":; GOTO 82 

REM 

REM. S=-S>sSsSSSse5 "Key to Continue" Sub. ----- 7-7-3 

REM 

K2$="KEY*to*Continue”"™ REM Accessed at Lines 245 & 246 

G=1: GOSUB 274: X=ASC(K1$) REM Next line converts to upper case 
IF X¥>96 AND X<123 THEN LET X=X-32: K1$=CHR$(X) 

RETURN 

REM 

REM ~--~------------- "Sure: (Y/N) "SUB. “=H ==4SSe44S454=S>4= 

REM 

K2$="Sure*(Y/N)": GOSUB 246: IF K1$<>"N" AND K1$<>"Y" THEN 252 
RETURN 

REM 

REM SSsS=—45<=F "Previous Balance" Input Sub. ~-~-~-~-~------~- 

REM 

G=9: K2$="Balance*Forward": GOSUB 274: GOSUB 262 

IF X=1 THEN 257 ELSE RETURN REM Loop if invalid amount 

REM 

REM = SSS543=—3544S2> "Money Input" Sub; “=<=<9===-S cS oe"r> 

REM 

X=1: F1=VAL(K1$): IF Fl<=0 AND i=0 OR F1=>1000000 THEN 265 
X=0: F2=FRACT(F1): F3=F1-F2+FLT(INT(F2*100))/100 

K1$=STRS$(F3): K1$=K1$(;2) REM Round off to 2 decimal places 
RETURN 

REM 

REM === ---=—S32eS=S5- “Category” Sub... = SSS -<sss5 SSeS 


00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 


G=12:K2$="Category" 

REM 

REM S42 33s 633]S543> Main Input ‘Sub. ==-S=<-=—-—2S—S54—S= 
REM G = No. of Characters, i = Null allowed, K2$ = Prompt 
REM 

GOSUB 323: Y=LEN(K2$): CURS 1,15: PRINT ([(A64%45] [A63°%32]; 
X=V+1-C: IF X>V THEN LET X=V REM Limit Free Files Counter 
CURS 1,16: PRINT K2$;: CURS 52,16: PRINT INT(FRE($)); "*:"; X; 
CURS Y+3,16: Z=0: K1$="": FOR X=1 TO G: PRINT "*";: NEXT X 
CURS Y+1,16: PRINT "?*"; REM Print Prompt Line 

KOS$S=KEY$: X=ASC(KOS$): IF X=44 OR X=124 OR X=128 THEN 279 

IF X=8 OR X=127 THEN 285 ELSE IF X>13 THEN 283 REM B/S or DEL 
IF Z>0 THEN CURS 0: RETURN REM End if <CR> 

IF i>O THEN LET K1$="":;: RETURN ELSE 279 

Z=Z+1: CURS Y+Z+2,16: PRINT KOS; REM Print input so far 
K1$=K1$+K0O$: IF Z=G THEN RETURN ELSE 279 REM End of string? 
KO$=K1$(;1,LEN(K1$)-1): K1$=K0$ REM <DEL>ete key? 

IF Z>0 THEN CURS Y+2Z2+2,16: PRINT "*";: CURS Y+2,16: Z=Z-1 
GOTO 279 

REM 

REM: ===<====—>-=— "File Entry” Print Sub. ~-=-<-—-<<------=- 


M=C: GOSUB 309 REM M is File number 

GOSUB 322: PRINT "FILE:" 

IF K4$="" OR K4$="@" THEN 295 REM Implement search if active 
KO$=A0$(M): IF SEARCH(KO$,K4$)=0 THEN LET G=0: RETURN 
KO$=STRS$(M)+".": KO$=KO$(;2): X=LEN(KO$) REM KOS$=File No. 

PRINT KOS; SPC(4-X);: KO$=A0$(M): GOSUB 310 REM Date 

PRINT SPC(9-LEN(K1$)); K1$; "*";: IF q>O THEN PRINT "“*"; 

GOSUB 310: PRINT Ki$; SPC(18-X); REM Item 

GOSUB 310: PRINT K1$; SPC(9-X); REM Cheque/Receipt No. 

GOSUB 310: M=0: IF K1$="P" THEN LET M=11 REM Rec/Pay? 

IF q=0 THEN PRINT K1$; "*"; REM Don’t print in full on VDU 
GOSUB 310: N=ASC(K1$)-64: K2$=BO$(N): IF M=0O THEN LET K2$=B1S$(N) 
IF q>O THEN LET X=LEN(K2$): PRINT K2$; SPC(16-X); ELSE PRINT K1$; 
GOSUB 310: Fl=VAL(K1$): IF F1>0 THEN PRINT SPC(M); [F10.2*F1] 
RETURN 


REM 
REM <=3<2=<-3—-= Extract File Section Sub’s. -----~------ far ares 
REM 

A0$(C)=A0$(C)+K1$+"I": RETURN REM "I" delimits sections 


Ki$=""; X=SEARCH(KOS,"{"): IF X=0 THEN RETURN 
K1$=K0O$(;1,X-1): KO$=KO$(;X+1): IF q>0O THEN LET X=X-1 
RETURN 

REM 

REM -33--------- Extract Date Variables Sub. ------------- 
REM 

K1$=A0$(X): F1l=VAL(K1$): Y=SEARCH(K1$,"/")+1: K1$=K1$(;Y) 
F2=VAL(K1$): Y=SEARCH(K1$,"/")+1: K1$=K1$(;Y) 

F3=VAL(K1$): F4=100*F3+F2+F1/100: RETURN 

REM 

REM ------------"- Print Screen Heading Sub. --~------------ 
REM 

CLS: PRINT KS5$;: CURS 53,1: PRINT "by“*L.R. Ford"; 

CURS 16,1: INVERSE: PRINT "***Dreamcards*LedgerMaster“*2** " 
NORMAL: PRINT (A64*45];: RETURN 

REM 

REM <--33--------------- Print BASE Sub. 3---3----3---3-3--- 
REM 


GOSUB 322: PRINT" PAYMENT“CATEGORIES: **(";BO$(0);")":K2$="Category" 


IF P=0 THEN RETURN REM Payments 

FOR X=1 TO P: KO$=BO$(X): F1=B2(X): GOSUB 334: NEXT X: RETURN 
GOSUB 322: PRINT "“RECEIPT*CATEGORIES:%**("; BOS$(0); ")" 

IF R=O THEN RETURN REM Receipts 

FOR X=1 TO R: KO$=B1$(X): F1l=B3(X): GOSUB 334: NEXT X: RETURN 
J2=X+3: K=3: IF X>10 THEN LET J=J-10: K=35 REM Set cursor var’s 
CURS K,J: PRINT CHRS(X+64); ".*"; KO$; SPC(13-LEN(KOS)); 


NOTES: 
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00336 
00337 
00338 
00339 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00358 
00359 
00360 
00361 
00362 


IF Fl>0 THEN PRINT [(F10.2*F1] REM Print any balance 
RETURN 


REM .=-=Ses= 5-5-4 -— “Counter” -Print. Sub. Sess rersSS-SS—= 
REM 

IF X>1 THEN 343 REM Don’t re-print "WAIT" if Counter>0 
CURS 1,12: PRINT [A26°%32] "**WAIT**" [A92%32] 

IF X>0 THEN CURS 28,13: PRINT [14*X]; REM Print Counter 
CURS 0: RETURN 

REM 

REM <~---3---3~-------- Save/Load Type Sub. ----~~------------- 
REM 

K2$="Base*(1)": IF N>2 THEN LET K2$=K2$+",*Files*(2),*A11°(3)" 
IF N>3 THEN LET K2$=K2$+",*Merge*(4)" 

GOSUB 246: H=INT(VAL(K1$)): IF H>N THEN LET H=0 

O=H: RETURN | 


REM ---<--~-------- Initialise Arrays Sub. --------------~-=- 
REM 

IF C=0 THEN 357 REM Print caution if existing ledger 
GOSUB 252: IF Ki$="N" THEN RETURN REM Sure? 


CLEAR: K5$=""; V=320: STRS(V*51+1400) REM V is Max. No. of files 


DIM AO(V+2),Al1(V+2),B0(20),B1(20),B2(20) 
DIM B3(20),B4(20),B5(20): GOSUB 361: GOSUB 362 


FOR X=C TO V+2: AOS$(X)="": NEXT X: K1$="": RETURN 
FOR X=Y TO 20: BOS$(X)="": B2(X)=0: NEXT X: RETURN 
FOR X=Y TO 20: B1S$(X)="": B3(X)=0: NEXT X: RETURN 
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Commodore 64 
MESSAGE ENCRYPTOR f€éfovy. 


While recently engrossed _ in 


some junk spy novel, | wondered 3S REM" **MESSAGE ENCRYPTOR*x«" 
if it were possible to write a sim- 6 REM” **BY PETER FOYE" 

ple BASIC message encryp- 7 REM 

tion/decryption program which 19 PRINT "yy" 


was reasonably friendly and, at 


The result is attached. Al- a a | la aaa 
though written on a Commodore 26 PRINT"WHAT IS THE KEY FOR THIS MESSAGE?": INPUT KS 
64, the program lines are straight 38 PRINT:PRINT:PRINT"TYPE YOUR MESSAGE " 
BASIC, except for the printer 35 OPEN 3.4 


commands, and shouldn't re- 


quire many changes to be trans- 98 FOR K=1 TO 5 


portable to other machines. 10@ GET AS: IF AS=""THEN 100 
The actual mechanics of the 1320 B=ASC (AF) 
program are fairly simple: 140 CH=MIDS(KH,X ,1? 


1. The program is driven by a 


codeword which can be as long 158 D=ASC(CS) 


or as short as required. A code- 168 E=Bx*D 
word of five or more letters or 165 PRINT AS"..."E 
numbers is required in the at- 167 PRINT#3,E 
ee 86 (ae ARHT 
ame W ge to lines 
90 and 265. Ae aaah 
2. It ascertains the ASCII value 1388 GOTO 3@ 
of each letter of the message 190 REM 
input from the keyboard. 20@ REM" **MESSAGE DECRYPTOR#" 
3. It finds the ASCII value of a 220 REM" x*x*BY PETER FOYE” 
selected letter from the code- a 
word. ees REM 
4. The program multiplies the 230 PRINT" Q” 
two values together to produce a 2480 PRINTTABCI@) "MESSAGE DECRYPTOR”" 
four-figure number, which is the 258 PRINTTAB CSD" " 
code loreaci INDUL ietter. 268 PRINT"WHAT IS YOUR CODE FOR THIS MESSAGE?": INPUT 


5. The device used to take the 
code out of the realms of simple 
letter replacement is that the let- 


e265 FOR X=1 TO 5 
278 PRINT:PRINTIPRINT" TYPE THE NUMBERS": INPUT L 


ter selected from the codeword 3180 CS=MIDS(KS,%, 1) 
as the multiplier changes one 320 D=ASC(CS) 

letter each cycle of the loop. This 330 B=L/D 

ensures that even if the same let- 335 ES=cHRSs(B> 


ter is entered twice, the output 


code value will be different. 3948 PRINT ES 


6. A message can be encoded 3492 OPEN 3,4 
simply by using the codeword, 3945 PRINT#H3,ES 
and decoded by the same code- 347 CLOSE 3 


word, but it’s almost impossible 


to crack any other way. 350 NEXT X 


Peter Foye, 368 GOTO 265 
Balmain, NSW. READY 
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Microbee 
GUESS3 


The object of this game is to 


guess a three-letter word chosen. 


at random by the computer. The 
game is over when you guess the 
word, or after 10 unsuccessful at- 
tempts. Guesses are checked by 
the computer and the following 
codes are displayed: 


(Y) — A letter is in the correct 
position. 

(N) — A letter is in the wrong 
position. 

(-) — A letter is not correct. 


The program’s initial diction- 
ary consists of 50 words, but 
many more could be added — 
the only restriction is the 
amount of memory available. 
Also note all words must contain 
three different letters. To enlarge 
the program’s dictionary you 
simply add DATA statements 
containing the new words to the 
end of the program. You will also 
need to change the randomising 
number in line 210. 

Lonnie Riley, 
Banyo, QLD. 


POCKET PROGRAMS 


Guess a GF letter word #4444 
CLEAR : DIM W1iC3), Gicg) FORE 257,2 

ILS LLORES : [=0 H=( T=0 

FLOT 0,90 TO 90,47 TO 64,47 TO 64,0 TO 0,0 : 


OoO1L0O 
OOLLIO 
OOL2O 
OO130 


REM ‘:#:44054 


IF Y210 THEN FRINT " 


: FRINT 


QOO14O CURS 72 : PRINT "G ue s s - oO" FLOT 0,40 TO 64,40 
OO150 FOR X=257 TO 833 STEF 64 CURS xX Y=X/64-3 : 
" ELSE FRINT Y"." 
QO160 NEXT X 
QOO170 NORMAL 
00180 CURS 38 : FRINT "CY)  forrect Place" MURS 102 
: CURS 166 FRINT "¢€-) No Match" 


OO190 REM #4AEEE Computer chooses word FARE 
QOO200 FESTORE S390 

QOQL1LO Y=INTCREND#50) +1 

QOOS2Z0 FOR X=1 TO Y READW1S NEXT xX 

00230 REM 44444 Input a quess #4CKSE 

O80O240 CURS 290 : FRINT "What 185 your quess " 
OOBZ5O FLAY =: CURS S54 : FRINT CAI8 S32] 

QOO02Z60 FORE 220,135 URS 354 INFUT 1s 

QOO270 REM #44444 Check for 3S unique letters #F#EEF 


OoO2B80O IF LENCG1$) <> SG THEN CURS 418 : FRINT 

OTO 240 

QOO2I9IO ITF GW1ises1,1)9 = Biss 2,2) THEN Sao 

OOSOO IF Gises;1,19 = 61S$€s5,5) THEN 330 

QOOS1LO IF Wises 2,2) = GIS¢s5,5) THEN S30 

OOSZO GOTO 350 

OO3GO CURS 418 PRINT "No two Jetters are the same! 


QO0340 REM #4444 Compare guess with computers word #4 FE 
OOSSO C=O H=O T=T+i : CURS 418 FRINT CAS9 Se] 

OOTEO FOF X=1 TO 3 

00370 FOR Y=1 TO 3 

QOOSBO IF GisesX,xXo 82 W1iSes 7,79 THEN 430 

OOS90 IF X=Y THEN 420 

00400 H=H+1 

00410 GOTO 4350 

OO420 C=m+1 

QOO430 NEXT Y 

OO440 NEXT X 

OO4S5O X=2O1+T#E4 

O0O460 CURS SL3s+644T FRINT 1% 

0O470 [TF sO THEN FOR Y=1 TO © MURS Xt ¥en LIES FReINT "y" 
M0480 X=2ZO1L+T#64+I#3 

OO4FIO IF HeO THEN FOF Y=1 TO H : CURS X+CY¥-1)94#5 FRINT "WN" 
QOO500 X=20O1+7T#64+4+ 04H £9 

QOOS1O IF C+HeS THEN FOR Y=1 TO ¢€3-CC+H)) : CURS X4+CY-1)#3 
OOSLZO IF (=3 THEN CURS 610 FLAY1; 233; 4 FR INT 

FRINT "You quessed it!" BOTO S50 


"Please enter 


FLOT 47,0 TO 47,40 


a eke 


"CN? Wrong Flace" 


"3 GOTO 240 


"haongratulations!" 


a &S letter word!" 5 
NEXT Y 
NEXT Y 
PRINT '—" NEXT Y 


MURS 674 


OOSGO IF T=10 THEN CURS 610 FRINT "Sorry tl" FLAY4, Sri,S CUFRS 674 FRINT "T 
he word was "s;W1% SOTO S50 

00540 mBOTO 240 

QOOSS5SO CURS 3950 : PRINT "Flay again ¢Y/N)d7 " 

QOOS60 Z1S$=KEYS =: IF 21%=""" THEN S60 

00570 IF Zisee"Y" AND Z1i¢<2"N" THEN SSo 

QOOS8O FRINT Z1% IF Zis="Y" THEN 110 ELSE FRINT "Thanks for playing!" I=ND 
00590 DATA "FOOT", "PEG", "FAT", "FIN", "FET", "PEN", "FUN", "FUT", "PUB", "POD" 

QONO6B00 DATA "TUE", "TIN", "TON", "TOF", "TEN", "THE", "THY", "TIC", "TOW", "TRY" 

00610 DATA "RUN", "RIM", "RIG", "RAM", "RUT", "RAW, "RIT", "RED", "RAF", "RUB" 

Q0O62Z0 DATA "SAT", "SEA", "SAW", "SET", "SAD", "SUN", "SUM", "SIN", "SON", "SOD" 

00630 DATA "BET", "BEG", "BED", "BAD", "BAN", "BAT", "BUT", "BUN", "BUG", "BIT" 


POCKET PROGRAMS 


Sharp MZ-700 


TIDY 

Written for the Sharp MZ-700, 
using Disk BASIC, this utility 
prints out BASIC programs in an 
improved format. 

Specifically, all FOR-NEXT 
loops are indented, REMarks are 
highlighted and one-line ‘Breaks’ 
are inserted before LABEL state- 
ments. 

To be listed, the program must 
have been saved as a sequential 
file, using the ‘A’ option. 

When run, ‘Tidy’ first prompts 
for a filename. Errors are not 
trapped, so if the file does not 
exist you will receive the stand- 
ard error message and be re- 
turned to BASIC. 

After the file has been opened, 
you will be asked to specify a for- 
mat. First, you must nominate 
the screen or the printer as the 
output device. Entering ‘P’ (CR) 
will set the internal plotter to 80 
columns and shorten the page 
length to 40 lines. 

The next choice is between 
normal or extended spacing. 
Choosing extended spacing will 
insert the breaks before labels 
and around REMs. 

The final question, whether to 
‘Suppress’ or not to suppress, 
controls whether or not the line 
number and REM statement are 
displayed. 

Answering ‘Y’ will replace the 
line number and REM statement 
with the string ‘* * *’, but will 
leave the rest of the line alone. 


Hints on Conversion 

In line 620, CHRS (17) performs a 
linefeed on the Sharp's video 
display. 

In line 630, CHRS(10) causes a 
linefeed on the printer. 

Also in line 630, the asterisk 
between the logical expressions 
performs a logical ‘AND’. On 
other systems, this line should 
probably read ‘IF PD=2 AND 
TS=“E” THEN’. 

Line 560 opens a sequential 
data file whose name is in the 
string PNS, so data can be read 
from it on channel I. 

The LABEL statement is rather 
like the Beeb’s DEF PROC. A 
name can be assigned to a line 
and GOTO and GOSUB com- 


mands can refer to the name, 
rather than the line number. 

In line 130, Disk BASIC (no- 
body in their right mind would 
call it BASIC 5Z-008) treats EOF 
as an error trap of sorts. When 
the end of the file is reached, the 
program will execute the state- 
ments following THEN. 

Matthew Cochrane, 
Albany, WA. 


iQ 
28 
38 
40 


188 
118 
128 
130 
140 
158 
162 
178 
182 
132 


REM 
REM 
REM 
REM 


REM 


REM 
REM 
REM 
REM 


ie USING THE 


PRINT 
LISTS BASIC PROGRAMS IN AN 
IMPROVED FORMAT 
PROGRAMS MUST HAVE BEEN SAVED 
AS A SEQUENTIAL FILE 
‘A“ OPTION 


BY M.COCHRANE APRIL 1985 


REM INITIALISE 


GOSUB 


"INIT" 


REM GET A LINE 


IF 


EOF C#1) THEN CLOSE :END 


INPUT#15,A$ 


IF 


A$=""" THEN 128 


e$= tort 
REM GET LINE NO 


FOR C=1 


IF 


TO LENCAS$) 


MIDS$CA$,C,1)=" " THEN 2$=SPACES(6 


-CI+LEFTSCA$, C) -AS=RIGHT$SCAS, LENCASI-C): 
GOTO 218 | 

208 NEXT C 

218 REM A LABEL 


$ 


220 IF LEFT$CA$,5)="LABEL" THEN 2$=CS$+t2 


238 REM A REM 


248 IF LEFT$CA$,3)="REM" 
ARK" :GOSUB 
REM LOOK FOR 


298 
260 
278 
280 
290 
380 
312 
320 


330 


348 
358 
360 


THEN GOSUB 
"PRINT" :GOTO 128 
FOR’ 


“REM 


S$="FOR " 


GOSUB 
NI= 
REM LOOK FOR 


"SEARCH" 
NI+NO 
~NEXT % 


S$="NEXT " 


GOSUB 
NI= 


IF 


"SEARCH" 
NI-NO 
NI<@ THEN NI=@ 


REM FINAL FORMAT 


2$= 


IP 


2$+SPACESCNII+AS 


PLR=-1 THEN PLR=@:2$=CS$+2$ 
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Sharp MZ-700 | 
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POCKET PROGRAMS 


370 GOSUB "PRINT" 

388 GOTO 128 

396 LABEL "PRINT" 

400 ON PD GOTO 418; 429 

418 PRINT&$:RETURN 

420 PRINT/ZP 2$:RETURN 

430 LABEL "SEARCH" 

440 NO=2 

450 QF=0 

4680 FOR C=1 70 LENCA$J-LENCS$) 

470 IF MNIDSCA$,C,1I=CHR$C$22) THEN QF=1- 
QF 

48@ IF QF=1 THEN 580 

490 IF MIDSCA¢,C,LENCS$))J=S$ THEN NO=NO+ 
2080 NEXT C 

918 RETURN 

220 LABEL "INIT" 

938 NI=0 

948 PLR=0 

998 INPUT "File Name 2" SPN$ 

368 ROPEN#1; "QD:"+PN$ 

97W@ INPUT "Output {P7S} PP" STS 

388 PD=1 

9390 IF T$="P" THEN PD=2:MODE TS:PAGE 42 

680 INPUT "Spacing <«N7E) ?" 5TS 

616 CS¢$="" 

6260 IF TS$="E" THEN CS$=CHREC17) 

6380 IF CPD=2)xCT$="E") THEN CS$=CHR$C106) 
648 INPUT "Suppress {YN} ?" 5T$ 

658 RS=0 

6680 IF T$="Y" THEN RS=-1 

670 RETURN 

680 LABEL "REMARK" 

690 IF RS THEN 2$="X Xk XK" :A$=RIGHTS$CAS$,L. 
ENCA$I-3) 

70GB XF$=2$+AS 

710 IF PLR=@ THEN 2$=CS$+2$ :PLR=-1 

P20 RETURN 
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WILDERNESS 


This fantasy game was written by 
my brother Paul and myself, and 
is similar to ‘Dungeons and 
Dragons’, in that you wander 
around searching for treasure 
and fighting monsters. It in- 
cludes a dungeon, which may be 
entered from the wilderness, and 
as you venture forth, fighting 
monsters (greblies) along the 
way, your character gains experi- 
ence points, which allow you to 
go up in levels of skill. The game 
is complete and runs bug-free 
(as far as we can tell), but as yet 
has no defined ending. Due to a 
lack of programming utilities 
(renumber and so on), it became 
too difficult for us to go on ex- 
panding the game, but features 
we intended to include were: 
@ Magic spells 
@ Scrolls 
@ Amulets 
@ Friendly/unfriendly encounters 
@ Magic books 
@ Assorted treasures 
@ More monsters 
@ Crynts 
@ Villages 
@ ‘Save game’ feature 
@ Night/day 
@ More weapons 
@ Divine intervention (the gods). 
Perhaps readers will be able to 
incorporate these features them- 
selves. 
The commands are: 


m — (move) advances you to the 
next screen in the wilderness or 
next room in the dungeon. 

s — (search) searches the area/ 
room for treasure/weapons. 

x — (status) displays your 
character's status, strength, pos- 
sessions and hit points. 

c — (print commands) displays 
the available commands. 

a — (attack) attacks the monster 
in your area/room. The monster 
must be in range to be attacked; 
the ‘move’ command advances 
you into range. 

i — (identify) identifies what 
kind of monster is on screen/in 
the room. 


LISTING OF "’WILDERNESS’ 
FOR THE COMMODORE 64 
20/3/85 


WRITTEN BY PAUL STUART 
WITH MODIFICATIONS 
BY ANDREW STUART 


ORIGINAL CONCEFT FROM 

THE GAME ’WILDERNESS’ 

FOR THE SORCEROR COMPUTER. 
CONVERTED AND RE-WRITTEN 
FOR THE COMMODORE 64 BY 
PAUL STUART 


PLEASE FEEL FREE TO MODIFY 
OF TO CONVERT TO OTHER 
SYSTEMS. 


10 GOSUB 7300 
ZOO REM KKKHKERRERKERKAKERERRRRREEERERE 


210 REM * * 
220 REM xX DUNGEON * 
230 REM * + 


240 REM HEREREREREREREEEERREEEEREE ER ERE 
250 REM WRITTEN BY FAUL STUART 

260 REM WITH ANDREW STUART 
270 REM 

280 REM DATE: 25/4/84 

290 REM 

300 FEM VERSION 7 

310 REM 

320 REM 

330 REM 

340 REMKAKEAEASPRITE CREATIONS AKER EKEX 
350 REM 

30 POKE 33280,0 : FPOKE 533281,0 

432 FOKE 646,11 

$40 PRINT CHRS$(147) 

442 V=53248 

451 POKE V+21,4 : REM ENABLES SFRITE 2 
453 POKE 2042 ,13 : REM DATA LOCATION 
455 FOR N=0 TO 15:FOKE S3S2+N,O:NEXT N 
457 FOR N=O TO SO:FEAD Q@:FOKE 848+N,Q: NEXT N 

459 FOR N=0 TO 15: POKE 879+N,0:NEXT N 

461 DATA 4B, 0, 72, 0,0, 72,0,0,48,0,0 

462 DATA 252,0,0,48,0,0,48,0,0,48 

463 DATA 0,0, 72,0,0,72,0,0, 204 

30 FEM 

74090 DIM W$C( 12) 

7435 DIM DUNJC22,5) 

750 GOTO 1200 

739 REM 

760 REM *4**** DUNGEON GENERATION -4K4K 

765 REM 

766 REM DUNJCRM YOU ARE IN,©) GIVES r&GW 

767 REM NO OF DUNJ WHICH HAS DETAILS OF 

768 REM THAT ROOM . 

770 RESTORE 

775 FOR M=1 TO 31 :READ Q:NEXT M 

780 FOR D=1 TO Zz 

800 R=INTCRND¢(1)9#22)+1 

820 FOR E=1 TO D 

840 IF DUNJCE,1)9=R THEN 800 

860 NEXT E 

880 DUNJCD,19=F :DUNJCR,O)=D: DUNJ CD, S)=INTCRNDC1)9#10)41 
900 NEXT D 

905 CN=INTCRND C1) #22941 

330 FOR L =1 TO 22 

3940 READ L1,L2,L3 

5360 DUNJCL,2)=DUNJC(L1, 19 
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r — (run) is for when you're 
about to lose a fight. 

se — (search) is used to enter a 
dungeon and find out if there’s 
another way out. 

| — (look) redraws the wilder- 
ness map or describes the cur- 
rent dungeon chamber again. 

Paul has attempted to write 
the program with some sort of 
structure; it’s composed of a 
number of separate subroutines 
to make expansion or conversion 
a little easier. We've also at- 
tempted to use as few of those 
funny-looking Commodore 
graphics characters as possible; 
where they do appear they're 
only for screen formatting. 

We would like feedback on the 
program; if there are any en- 
quiries, bugs found, suggestions 
(no criticism, please), or if any- 
one wants a disk or tape version, 
please contact Paul on (03) 29 
1949 or me (Andrew) on (03) 836 
0775. 

Andrew Stuart, 
Surrey Hills, VIC. 


NOTES: 
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980 DUNJ¢(L,3)9=DUNJ (LZ, 1) 


1000 
1020 
1040 
1060 
1080 
1100 
1120 
1140 
1170 
1175 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1390 
1400 
1405 
1410 
1415 
1420 
1460 
1480 
1500 
1510 
1520 
1540 
1560 
1570 
1580 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1760 
1770 
1780 
1781 
1782 
1783 
1785 


DUNJ ¢ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
TRS=" 
RETUR 
REM 
REM * 
REM 
PM=30 
SB=IN 
IF SB 
DB=IN 


Ly4)=DUNJ (LS, 1) 

L 

ZySpdep ly Sp Sy ly ey ty Sy Sy Gy ly Ze 4 
4,7,9,6,8, 11,7, 9, 10,6,8, 14,8 
12913, 7,15,16,10,13,17,10,12,17 
9,18,19,11,16, 22,11 

15, 22,12,13, 21, 20,19, 14, 20,18 
14,168,119, 21, 20,17, 22, 15, 16, 21 
NOTHING OF VALUE" 

N 


KEKXKAXCHARACTER CREAT IONS 


=: HP=30 : DO=0 
TCRNDC1)*7)-1 
<O THEN SB=0 
TCRNDC1)*6)-1 


IF DB<O THEN DB=0 


W$C1)="1., 
WS$CSI="2, 


we VE 
= wa 


ARMOURS¢(1)="1. 
LEVEL=1:XF=0 3: 


W$ C3) 


BARE HANDS" 

DAGGER" 

SWORD" 

LEATHER ARMOUR": AA=1 
CD=20 : CA=20 3: W=S 


TRS="NOTHING OF VALUE" 


PRINT 
FOKEV 
GOSUB 
FRINT 
GOSUB 
FRINT 
GOTO 

REM 

REM * 
REM 

PRINT 
FRINT 
INPUT 
IF A% 
IF AZ% 
IF AZ 
PRINT 
CN=DU 
IF HF 


CHES (147) 

+4,0 2: PORE V+5,0 
9910 

CHR €147) 

3710 

CHR 6147) 

1930 


KEKREKAKKMOVEMENTHRRAKAKAKEK 


"TO WHICH ROOM: ";B3C;D; 
Az 
=B THEN FF=B: 
=C THEN FF=C : 
=D THEN FF=D : 
"HOW 7" s 
NJICFF,O) 
<FPM THEN HF=HF'+3 


GOTO 1650 
GOTO 1650 
GOTO 1650 

GOTO 1580 


TR$="NOTHING OF VALUE" 


REM 

REMKK 
REM 

POKE 
PRINT 
PRINT 
A=0: E 


KKKEEEEPOS TT ILONKERKKRRKAAKKK 


V+5, Os PFOKE V+4, QO 
CHRS (147) 

: PRINT 

=0:C=0: D=0 
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1790 B=DUNJ(CN,2) : C=DUNJCCN, 3) 

1800 D=DUNJCCN,4) 2: A=DUNJCCN, 1) 

1810 PRINT "YOU ARE IN ROOM ";A 

1815 PRINT 

1820 FRINT "THIS CHAMBER JOINS "sB","3C",";D sRETURN 
1842 REM 

1845 REM CSKEKWILDERNESSEAEREEAKEREE 
1846 REM 

1847 IF DO=1 THEN 1350 

1848 PRINT CHR$(147) 

1849 FOKE V+4,0:FOKE V+5,0 

1850: PRIN Serre ea ee 

1855 FOR M=1104 TO 1544 STEF 40 

1857 POKE M+54272,11 :REM FOKE COLOUR 
1860 FOKE M,71 

1865 E=INTCRND(1)#5)+1 

1870 FOR G=1 TOE 

1872 H=INTCRND(1)#16)+1 

1873 IF M=1344 AND H=9 THEN 1872 

1875 IF M=1384 AND H=9 THEN 1872 

1877 FORE Mt+H+S4272,5 

1880 FOKE M+H,65 

1885 NEXT G 

1887 POKE M+17+54272, 11 

1890 FOKE M+17,66 

1895 NEXT M 

1900 PRINT "Sislelstetetetepetstete) -——————___- 
1905 POKE V+4, 90 

1910 POKE V+5,110 

1911 IF HPSPM THEN HP=HF+1 

1912 DUNJ=INTCRND(C1)9#3)+1 

1913 IF DUNJ<>1 THEN RETURN 

1914 X1=INTCRND(1) #14941 

1915 IF HP<PM THEN HP=HF +1 

1916 Y1=INTCRND¢C1)#10)+4 

1917 FOKE X1+40#Y1+10244+54272,6 

1918 FOKE X1+40#v1+1024,4 

1919 RETURN 

1920 RETURN 

13930 REMASESCRAE ESE KERR R ES RRAEESR EER SEE 
1935 IF DO=1 THEN GOSUB i540 

1937 IF DO=0 THEN GOSUB 1845 :REM WILD 


1340 GOTO 2200 :REM GREBLIE CHECK 
1950 GOSUB 4610 :REM TEASURE CHECK 
1955 REM 

1960 REMEEEEEKEXKCOMMANDSHKHKRKKRKKKRAKE 
1970 REM 

1980 FRINT =: PRINT 

1995 Ag=""' 


2000 INFUT "YOUR MOVE"; A 

2010 IF DO=0 THEN GOSUB 7000 

2020 IF AS="M" THEN 15930 

2030 IF AS="X" THEN GOSUB 3510:GOTO 13960 

2040 IF AS$="S" THEN GOSUB 3910:GOTO 1960 

29045 IF A$="SE" AND DO=1 THEN GOSUB 2150 :GOTO 1'360 
2047 IF A$="SE" AND DO=0 THEN GOTO 6090 

2050 IF AS$="C" THEN GOSUB 5710:GOTO 1560 


2055 IF A$="L" AND DO=1 THEN GOSUB 1770: GOTO 1960 
2057 IF AS="L" AND DO=0 THEN GOSUB 1845: GOTO 1960 
2060 IF At="" THEN GOTO 1960 


2070 IF AS="A" THEN PRINT:PRINT"YOU ARE ALONE" : GOTO 19560 

2080 IF A$="I" THEN FRINT "NO VISIBLE ENEMY" =: GOTO 15360 

£085 IF AS="Z" THEN END 

2090 FRINT "I DONT UNDERSTAND.":GOTO 1960 

2150 REMEAEKRREEAKE XL TRRRRRRERKERERKERKKK 

2151 PRINT: PRINT "SEARCHING......." 

2152 FOR M=1i Tu S0O:NEXT M 

2155 M=INTCRND¢C1)459+1 . 

2160 IF Me?1 THEN PRINT sFPRINT "YOU CAN FIND NO EXIT HERE! ": RETURN 
2165 PRINT 

2170 INFUT"EXIT FOUND,GOING UF"; AS 

2172 IF Ageie"Y" THEN RETURN 

2175 IF At="Y" THEN DO=0 :FRINT: PRINT "ENTERING WILDERNESS" 
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2177 
2180 
2185 
21°90 
2200 
2205 
2210 
2220 
2225 
2227 
2229 
2230 
2235 
2240 
2200 
2260 
2270 
2280 
2290 
2300 
23910 
2320 
2330 
2340 
Zou0 
=360 
Za/7Q 
280 
2460 
2470 
2480 
2490 
2900 
2ulo 
2515 
2o2O 
2028 
2u2G 
2oZe 
BOO 
Zaa0 
2oO4O 
Sods 
bel ber ©) 
2560 
2970 
2580 
2585 
2090 
29S 
2600 
2610 
2LE20 
2625 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2640 
2645 
2647 
2649 
2650 
2654 
2659 
2657 
2660 
2665 
2670 
2672 


FOR M=1 TO 750:NEXT M: PRINT CHRS¢C1479 


PRINT "ENTRANCE SEALS BEHIND YOU" 
GOSUB 1845 

RETURN 

REMEERANDOM GREBL I EARRREE 
REM 

Q=INTCRND(19#3)+1 

IF @=1 THEN 2230 

IF DO=1 THEN GOTO 1845 

GOTO 1950 :REM WILDERNESS MODE 
REM 

REMAXKEAkGREBLIE CREAT IONKEKEKEE 
REM 

M= INT (RND(9)4*13)+1 
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:FOR M=1 TO 7S50:NEXT M 


ON M GOTO 2260, 2270, 2280, 2290, 23900, 2310, 2320, 23390, 2340, 2350, 2360, 2370, 2380 
F 


M$="GERG": MA=25: MD=S5: NA=6: DM=4 
M$="LERG": MA=30: MD=60: NA=6: DM=6 
M$="GOBLIN" : MA=40: MD=60: NA=4: DM=8: 
M$="HUMAN" : MA=35:MD=65: NA=4: DM=6: 
M$="CORGURNG" s MA=3S0: MD=70: NA=4: 
M$="TROGLODYTE" =MA=30: MD=80: NA=6: 
M$=" THROON" : MA=35: MD=70: NA=6: DM=4: 
M$="OGRE": MA=40: MD=75: NA=1: DM=6: 
M$="WHELK ":MA=47:MD=90: NA=4: DM=6: 
M$="ORC'": MA=45:MD=80: NA=2: DM=8: 
M$="BIG WORM" :MA=S5: MD=65: NA=1: 
M$="WARG":MA=45: MD=60: NA=S: DM=S: 
M$="NAGRUTHA" : MA=S0:MD=70: NA=1: 
REMPEXEAESGREBLIE DETAILSG#EEEEEREEEE 
REM 

NUMBER=INT CRND¢1)#NAI+14+¢CLEVEL-1) 
MP=INT CREND¢194MHF2+1+AD 
EX=C(MA+MD+DM++MP > #NUMBEF: 

GOSUB 4610 

IF DO=1i THEN GOTO 2540 
Y=INTCREND¢ 1) #4103+4 
X=INTCRNDC1IF159 +2 

GOTO +685 

GOTO 2550 

FRINT 

FRINT NUMBER; M%3" BLOCK YOUR WAY" 
PRINT 

FRINT NUMBER ;M$3" BLOCK YOUF WAY" 
REMASEEAEMELEE COMMANDEEREREEREREEE 
REM 

FRINT 

PRINT " YOUR MOVE "3; 

Ag="" 

INFUT A 

IF DO=0 THEN GOSUB 7000 


‘=G6:AD=1:GOTO 2460 

P=4;AD=4: GOTO 2460 

F=7:AD=0:GOTO 2460 
MHP=4:AD=2: GOTO 2460 
DM=4: MHF =10: AD=4:GOTO 2460 
DM=5: MHF=5:AD=5:GOTO 2460 
MHP=6 :AD=S :sGOTO 2460 
MHP=12:AD=4:GOTO 2460 
MHFP=8:AD=5: GOTO 2460 

MHF =7:AD=S:GOTO 2460 

DM=4: MHF=10:AD=6:GOTQ 2460 

MHF =4:AD=1:GOTO 2460 

DM=6: MHF =6:AD=3:GOTO 2460 


IF A$="M" AND DO=1 THEN PRINT: FRINT: "THEY WONT LET YOU FASS":GOTO 2550 


IF AS="M" AND DO=0 THEN 2655 


IF A$="X" 
IF AS="A" 


IF AS="S"THEN GOSUB S910: IF 


THEN GOSUB 
THEN 2761 


wolO: GOTO 


2550 


CXS=7 AND X«= 


=LIIANDCY?=7 ANDY“ =11)9 THEN 3510 


GOTO 2550 


GOTO 2550 
: IF DO=0 THEN 19560 


"GREBLIES ARE";NUMBER;M$ :GOTO 2550 


IF AS$="S" THEN 2550 

IF A$="L" AND DO=1 THEN GOSUB 1770: 
IF AS="L" THEN GOTO 2655:GOTO 2550 
IF AS="SE" AND DO=0 THEN 6090: 

IF A$="SE" AND DO=1 THEN GOSUB 2150 
IF AS="SE" AND DO=1 THEN GOTO3S10 
IF AS="R" THEN 2700 

IF AS="I" THEN FRINT 

IF A$="Z" THEN END 


IF A$="" THEN 2550 
FRINT "I DONT UNDERSTAND THAT COMMAND": GOTO 25590 


REM 


REMEEEREREEAGREBLIE MOVER SERRE EERE 


REM 


IF C72=X AND X2=119 AND 


E=INTCREND¢ 
IF X27 THE 
IF Xe11 TH 


1) #5941 
N X=X+E 
EN X=X-E 


CY.=LLAND Yo=7) 


THEN S510 
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2675 
2680 
2685 
2687 
2689 
2690 
26593 
2695 
2700 
2710 
2715 
2720 
2730 
2730 
2737 
2740 
27350 
2760 
2761 
2762 
2780 
2782 
2785 
2786 
27°90 
2800 
2810 
2820 
2B25 
2830 
2835 
2840 
2B5S0O 
2855 
2660 
2B70O 
2880 
2900 
23910 
2920 
235930 
2940 
23950 
2960 
2970 
2980 
23981 
23982 
23983 
2984 
2985 
2986 
2987 
2386 
2989 
2990 
29791 
2992 
3100 
3105 
3107 
3110 
3115 
3120 
3140 
3150 
3155 
3160 
3162 
3165 
2167 
3170 
31735 
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E=INTCRNDC1)94*5) +1 

IF Y¥i7 THEN Y=Y+E 

IF Y>11 THEN Y=Y-E 

GOSUB 1845 :REM WILDERNESS 

IF ¢78=X AND X<=119 AND CY<=11AND Y>=7) THEN PRINT "GREBLIES ARE IN RANGE" 
FORE X+404Y+1024+54272,11 

POKE X+40#£Y+1024,13 

GOTO 2550 : REM MELEE COMMAND 

REM 

REMAFEKKEEERE TREAT INGKRKKKKKKKEKE 

REM 

M=INTCRNDC19#10)41 

IF M*tS AND DO=1 THEN FF=D:FRINT "YOU MADE IT":GOSUB 1770:GOTO 1560 
IF MeS AND DO=0 THEN PRINT "YOU MADE IT" 
FOF Y = 1 TO 400:NEXT Y :GOTO 1930 

FRINT "YOU DIDNT MAKE IT" 

FOR Y= 1 TO 400:NEXT Y 

REM 

REM#eEAKREWEAPON CHOOSINGKKAKKAKEKK 

REM 

REM 

IF DO=1* THEN GOTO 2730 

IF (€7=<YANDY=<11) AND ¢(7=< XANDX=<11) THEN 2790 

PRINT "GREBLIES ARE NOT IN RANGE": GOTO 2550 
DAMAGE=0: KILLED=0: HI T=0: R=0 

FOR M=1 TO W 


PRINT WS CM) 

NEXT ™ 

PRINT “WHICH WEAFON"; 
INFUT AZ% 

M=O 

M=M+1 


IF VAL CW$C(M))=AZ THEN 2900 

IF M=12 THEN 2870 

GOTO 2840 

FRINT "YOU DON’T HAVE THAT WEAPON" 
GOTO 2830 

ON AZ GOTO 2910, 2920, 2930, 2940, 2950, 2960, 2970, 2980, 2981, 2982, 2985, 2384 
WA=15:WD=2: GOTO 3100 

WA=20: WD=4 : GOTO 3100 

WA=30: WD=6: GOTO 3100 

WA=30: WD=8:GOTO S100 

WA=35: WD=10 :GOTO 3100 

WA=25: WD=12 :GOTO 3100 

WA=35 :WD=10 :GOTO 3100 
XXXXXXRUNESTAFF XXXXXX 

WA=40 3: WD=10 : GOTO 3100 

WA=30 : WD=12 : GOTO 3100 

REM XXXXXXXXARROWX XX XXXXX 

WA=45 : WD=8 : GOTO 3100 

WA=50 ; WD=6 : GOTO 3100 

XXXXXXX 

XXXXXXXXXX 

WA=40 : WD=15 = GOTO 3100 
XXX X XHOR'N 

WA=50 : WD=12 : GOTO 3100 

WA=60 : WD=15 : GOTO 3100 

XXXXXX 

REMEAREAEKPLAVER ATTACK HKEXKAKEREK 
REM 

IF DO=0 THEN GOSUB 7000 
HIT=(CA+WA+SB+LEVEL ) /MD 

PRINT "CHANCE TO HIT: "s; INTCHITHIOO) 3 "4" 
R=RNDCLISFRINT "RESULT: "3 INT CR#100)5 "2" 
FRINT 

PRINT "YOUR ATTACK "; 

FOR M=1 TO 700 :NEXT M 

IF RXHIT THEN 3170 

PRINT "MISSES" 

FOR M=1 TO 1000 s NEXT M 

GOTO 3510 " 
DAMAGE=INT CRNDC194WD)+1+LEVEL+SE 
PRINT "HITS" » “DAMAGE: “;DAMAGE 
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DAMAGE=DAMAGE+RMAIN 

IF DAMAGE=0 THEN 3230 

PRINT 

IF DAMAGE >MP THEN KILLED=KILLED+1: IF DAM>MF THEN DAM=DAM-MP: GOTOS2Z05 
NUMBER=NUMBER-KILLED 

RMAIN=DAMAGE 

IF NUMBER<1 THEN 3280 

PRINT 

PRINT "GREBLIES SLAIN: "; KILLED 
FOR M=1 TO 1000 :NEXT M 

KILLED=0 : GOTO 3510 

REM ALL GREBLIES FILLED 
KILLED=KILLED+NUMBER 

PRINT 

PRINT "GREBLIES SLAIN: "; KILLED 
XP=XP+EX 

IF XP>CLEVEL*1000) THEN 3360 
RMAIN=0 ; NUMBER=0O : DAMAGE=0 
KILLED=0:; Q=0 

FOR M=1 TO 1000 : NEXT M 

IF DO=0O THEN GOSUB 7000 

GOTO 13560 

LEVEL=LEVEL+1 

M=INTCRNDC1)94#5)+1 

FPM=FPM+M 

PRINT 

PRINT "YOU HAVE REACHED LEVEL";LEV 


Electronics Today is Australia’s dynamic 
electronics monthly. It has more special 
features, new and exciting projects to 
build and a wealth of information on 
components, equipment and new 
technology. Regular features include 
Australia’s top hi-fi reviews and news 
on communications and computing. 
Buy your copy now from your local 
newsagent, or become a subscriber and 
have the magazine home delivered. 


Only $35.40 for 12 issues. 


Send your cheque to: 
Subscriptions Department 
Federal Publishing 

P.O. Box 227 

Waterloo, N.S.W. 2017 
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3395 
3400 
3500 
3510 
3520 
3525 
3530 
3535 
3540 
3500 
3060 
3970 
3480 
2090 
3600 
3605 
3610 
3620 
3622 
3625 
3627 
3640 
3660 
3670 
36735 
3680 
3900 
3910 
3920 
S922 
3925 
3930 
3935 
3940 
3950 
3960 
3965 
3970 
3990 
4000 
4010 
4020 
4220 
4490 
4500 
4510 
4515 
4520 
4522 
43530 
4600 
4610 
4620 
4621 
4622 
4625 
4630 
4640 
4650 
4660 
4670 
4680 
4700 
$710 
4720 
4730 
4740 
$750 
4760 
4770 
4780 
4790 
4800 
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FOR M=1 TO 2000 : NEXT M 

GOTO 3330 

REM 

REMESEEERAKAGREBLIE ATTACKRERERERE 
REM 

IF DO=0 THEN GOSUB 7000 


HIT=MA/ (CD+WF+LEVEL+DB) 

PRINT “CHANCE TO HIT: "3 INTCHIT#100);"°%" 
PRINT 

M=1 

PRINT M%;" ATTACKS "5 

R=RND C1) 

FOR E=1 TO 1000 : 
IF R<HIT THEN 3640 
PRINT "MISS" 
IF M=NUMBER THEN S620 

M=M+1 3: GOTO 3560 

FOR M=1 TO 1000 : NEXT M 

IF DO=0 THEN GOSUE 7000 

GOTO 2550 

REM 

DAMAGE=INT (CRNDC1)9*DM) +1 

PRINT “HIT DAMAGE : "; DAMAGE 

HP =HP—-DAMAGE 

IF HP<1 THEN S910 

GOTO 3605 

REM 

REMEXKKAKEXDEATH SECTIONKKKKKKERKKK 
REM 

RMAIN=0; Q=0: DAMAGE=0 

PRINT:PRINT =: PRINT 

PRINT CHRS (147) 

FOKE V+4,0:POKE V+5,0 


NEXT E 


PRINT "THE CHARACTER DIED ......"3 
PRINT "TOUGH. " 

PRINT "YOU REACHED LEVEL";LEVEL; “BEFORE YOU" 
PRINT"WERE GROTTED." 

PRINT 

INPUT "TRY AGAIN CY/N) "3 AS 

IF AS="Y" THEN 1200 

END 

REM 

PRINT "A STAIRWAY OPENS UP BEFORE"; 3980 
REM 

REMKXXAKXKKPAUSE ROUT INEXKKKXKKXKKKKK 

REM 

PRINT 

PRINT"PRESS ANY KEY TO CONTINUE"; 

GET AS: IF AS=""" THEN 4522 

RETURN 

REM 

REMEEEEEEEE TREASURE CHECKS RREREEEES 

REM 

IF DO=0O THEN 4630 

IF DUNJCCN,5)=1 THEN DUNJCCN, 5)=0; GOTO 4670 


RETURN 

M=INT CRND¢C1) 44941 

IF M=1 THEN 4670 

FE TURIN 

FEM 

REM 44: EEE TREASURE DETERMINER SAeE¢ 
FEM 

M=INTCREND¢C 1294 CLEVEL+4+9) 941 


ON M GOTO 4720,47350,4740,4750,4750, 4770, 4780, 47390, 4800, 4810, 4810,4810 


TRS="4. MORNING STAR": RETURN 
TRE="5. BATTLE AXE": RETURN 

TR$="6. SILVER DAGGER" : RETURN 
TRE="7. LLOYD SWORD": RETURN 
TRS="6. RUNESTAFF" =: RETUFIN 

TR$=""5. TROLLS ARM": RETURN 
TR$="10. SERPENT STAFF": RETURN 
TR="11. CRYSTAL AFROW": RETURN 
TR$="12. MACE OF DISRUFTION': RETURN 
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Commodore 64 


4810 TRS="13. FIRE HAMMER": RETURN 

4820 TR$="14d. ": RETURN 

4830 TR$="15. ":RETURN 

4840 TRS="16. VORFAL BLADE": RETURN 

4850 TR$="17. HORN OF SUMMONING": RETURN 
4860 TR#="18. TRIDENT OF DAEMONS": RETURN 
4870 TR$="19. STORMBRINGER": RETURN 

4880 TR$="Z0. ":RETURN 

5500 REM 

5510 REMEREEDISPLAY STATUSAAAS EEE 
S520 REM 

S530 PRINT 

S540 FRINT "HIT POINTS="; HF 

S550 PRINT "STRENGTH BONUS="; SE 

5560 FRINT"DEXTERITY BONUS="; DE 

S570 FRINT “YOUR WEAFONS ARE: " 

5580 FOR M=1 TO W 

S590 PRINT TABC172; WSCM) 

S600 NEXT M 

5605 PRINT "YOU ARE WEARING"; ARMOURS (AA) 
S610 PRINT “YOUR LEVEL="; LEVEL 

5620 PRINT"EXPERIENCE FOINTS="; XP 

5630 GOSUB 4500 

5640 RETURN 

5700 REM 

5710 REMEAEKEEDISPLAY COMMANDS##E#KKEK 
5720 REM 

5740 PRINT TABC2); "COMMANDS: ": PRINT 
S750 PRINT TAB(4);"M MOVE", 

5760 FRINT "S SEARCH" 

5770 PRINT TAB(4);"X STATUS", 

5780 PRINT "C PRINT COMMANDS" 

5790 PRINT TABC4)3;"A ATTACK", 

5800 FRINT "I IDENTIFY GREBLIE" 

5810 PRINT TAB(4);"R RUN", 

5820 PRINT "SE SEARCH ENTRANCE" 

5825 PRINT TAB(4);"SE EXIT", 

5830 FRINT "L LOOK" 

5840 GOSUB 4500 

5860 IF DO=0 THEN GOSUB 7000 

5880 RETURN 

5900 REM 

S910 REMAAESERESEARCHING SECT IONAEEEE 
S920 REM 

S924 FOR M=1 TO W 

S925 IF WSCM)=TRS THEN TR$="NOTHING OF VALUE" 
S926 NEXT 

S930 PRINT 

S940 PRINT "YOU FIND ....eee. "5 

S950 FOR M=1 TO SOO: NEXT M 

S960 PRINT TRS 

5970 IF TR$="NOTHING OF VALUE" THEN RETURN 
5980 W=W+1 

SIIO WSECWI=TRS 

6000 TR$="NOTHING OF VALUE" 

6010 RETURN 

6080 REM 

6090 REMEAREEEREEFENTRANCE ROUTINES ESAS 
6095 REM 

GO9G A$="NO ENTRANCE TO THE UNDERWORLD CAN BE FOUND" 
6097 IF DUNJ<>1 THEN PRINT A®:GOTO 6099 
6098 GOTO 6105 

6099 IF @=1 THEN GOTO 2550 

6100 IF Q£21 THEN 1960 

6105 PRINT "ENTRANCE TO DUNGEON FOUND, "; 
6110 Ag="" 

6120 INFUT "GOING DOWN"; A% 

6140 IF ASe="Y" THEN 6099 

6150 PORE V+4,0:POKE V+5,0 

6155 DUNJ=0 

6157 PRINT CHR$(147) 

6158 FOR Y = 1 TO 11:PRINT:NEXT Y . 

6160 FRINTTAB(6) "DESCENDING INTO UNDERWORLD. " 


POCKET PROGRAMS 


6170 
6180 
6150 
7000 
7020 
7040 
7060 
7080 
7100 
7120 
7140 
7160 
7180 
7200 
7260 
7300 
7301 
7302 
7303 

304 
7305 
7306 
7307 
7310 
7320 
7330 


"7340 


7350 
7360 
7370 
7380 


GOSUB 760 sREM DUNJ GENERATER 
DO=1 :Q=0: GOSUB 1770 


GOTO 1560 
REM 
REM *#*****SCREEN CLEAR #AAREKRS 


REM 

FRINT CHR$(C19) 

FOR M=1 TO 7 

PRINT CHR$¢C17) +:REM CURSOR DOWN 
NEXTM 

FOR M=1 TO 9 

PRINT " 

NEXT M 

PRINT “IYYYYYITY)" . 


RETURN 
REM *KXKKKKKAINTRO SCREENKKKEAKEA 


PRINT CHR$¢(147) 

POKE SS3272, 22 

POKE 53280,0:FOKE 53281,0 

POKE 646,11 

VES53248 

POKE V+5,0 

POKE V+4,0 

FOR Y=1 TO 4 

PRINT CHRS¢17) 

NEXT Y 

PRINT TABC14) “OITLDERNESS! " 

PRINT ) 

FRINT TABC11)"® GAME OF FANTASY." 
FOR Y= 1 TO SOOO:NEXT Y 

PRINTCHR$ (147): POKR 53272, 21:RETURN 


READY. 


POCKET PROGRAMS 


TRS-80 MC10 


1 REM tower of hanoi 
TOWER OF HANOI 2 REM 13/6/84 - j.1. elkhorne 
The object of the game is to move 3 DIM A(4,2):DIM B(4,2) 
Bie rac of counters tomilett le Se Ate 0)=320:B(1,0)=352:B(2,0)=384:B(3,0)=416:B(4,0)=448 
right, while abiding by two rules: »V)= : »V)= : »VI= ; »V)= : »V)= 
8 8 by 55 B(O.1)=331:B(1_1)=363:B(2,1)=395:B(3,1)=427:B(4_1)=459 
: Move only one counter at a 60 B(0,2)=342:B(1,2)=374:B(2,2)=406:B(3,2)=438:B(4,2)=470 
ime. ; 
@ A larger counter cannot sit on 100 REM patterns-colours 2-6 
top of a smaller one. 110 “REM 9 BLKS 


e 120 "REM 1 YEL 
There are two positions to the 130 sREM 3 BLU 


right of the original stack. My 140 -REM 5 RED 
program does not permit youto = 159 0000000 ":REM 7 BUF 
hop an intervening space, as 160 S$ :REM 9 CYAN 
would be possible (but not per- 170 


missible) in the original. 190 : . 
J. L. Elkhorne, 200 REM search (point is v,h) 


210 R=0:C=0 
East Malvern, VIC. = 539 FOR H=20 TO 28 STEP 2 


240 : FOR V= 8 TO 52 STEP 22 
250 A(R,C)=POINT(V,H) 

260 C=C+1:NEXT 

270 C=0:R=R+1:NEXT 

280 RETURN 

290 ; 


SPNNRNNNVANANNANANAVALNVNANANVARNRNANNNRAUARNAVVPNVVNVTVNAVVYNVAAAVANNANNNVAVNAVANARQNAANNNVVVAUNVVLQNQUANNNVAN 


FORGET THE REST 


Bringing you the very best, and more, of 
what you need to know 


SN NNNNNNNNNNNNNNNNNNNNNNNVNUNNNNNNNRNNRARNVVUVVVUNNUVUNNNAAVANNVANNAVANVANANAUNNNNNVAUNUNNRNANY 


NN DVN VNVVNVNVANNVNAN VN VNVNVNVNNNNNRNNNNNNSSNANNVVNANVANNRNVANNLN QU YN 
SSNS NSNUSNUNNNUNVNNNNVNVULUNUNL UR UU UVR UN UN USSNNNSNSNS 
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TRS-80 MCIO 


40 


300 REM prompt for move 

310 PRINT@ 32,"1."':REM YELLOW SQ. 

320 PRINT@ 64,'2./'"':REM BLUE 

330 PRINT@ 96,'"3.?":REM RED 

340 PRINT@128,''4.0":REM BUFF 

350 PRINT@160,"'5._ '':REM CYAN 

360 PRINT@224,"ENTER COLOUR NUMBER AND","DIRECTION (L/R) - AS 1R" 

370 PRINT@288:RETURN 

390 : 

400 REM set-up 

410 PRINT@320,S$(2):PRINT@352,S$(3) 

420 PRINT@384,S$(4):PRINT@416,S$(5) 

430 PRINT@448,SS(6) :RETURN 

490 : 

500 REM move 

510 PRINT@288,:INPUT PS 

520 B=VAL(PS$):DS=MIDS(PS$,2,1) 

540 IF B&l OR B5 OR DS<>"R" AND DS<>"L' THEN PRINT@288:GOTO 510 
550 B=B+1:RETURN 

590 : 

1000 REM mainline 

1010 CLS:GOSUB 400 

1020 GOSUB 300:GOSUB 500:T=T+1: GOSUB 200 

1090 : 

1100 REM locate 

1110 FOR R=0 TO 4:FOR C=0 TO 2 

1120 IF A(R,C)=B THEN 1200 

1130 NEXT:NEXT 

1190 : 

1200 REM move test 

1210 IF DS$="L" AND C=0 THEN PRINT@70,"WRONG DIRECTION!"':SOUND24,9:GOTO 1020 
1220 IF DS="R'" AND C=2 THEN PRINT@70,"WRONG DIRECTION!'':SOUND 42,8:GOTO 1020 
1230 IF R=0 THEN 1300 

cca IF A(R-1,C)<>-1 THEN PRINT@70,"NOT THE TOP!":SOUND110,13:GOTO 1020 
2 : 

1300 REM move | 

1310 RO=R:CO=C:R=0 

1320 IF DS="L" THEN C=C-1 

1330 IF DS="R" THEN C=C+l 

1350 IF R=4 THEN 1400 

1360 IF A(R,C)=-1 THEN R=R+1 

1370 IF A(R,C)>B THEN R=R-1:GOTO 1400 

1375 IF A(R,C)>-1 AND A(R,C)<B THEN PRINT@70,"SMALLER UNDER!"':SOUND 44,14:GOTO 
1380 GOTO 1350 

1390 : 

1400 REM new 

1410 PRINT@B(R,C),SS(B); 

1415 PRINT@B(RO,CO),SS(1); 

1420 R=5:C=3 

1490 : 

1500 REM test end? 

1510 IF POINT(52,20)=2 THEN 1700 

1520 GOTO 1020 

1590 : 

1700 REM score 

1710 PRINT@O,"YOU TOOK';T;"'TURNS." 

1720 FOR R=1 TO 8:SOUND RND(144) ,4:NEXT 

1730 GOTO 1730 

1999 END 


Microbee | 


POCKET PROGRAMS 


GOLDEN EAGLE 
POKIES 


This game will cost you a dollar 
for every pull of the handle, and 
you can win some cash by 
spinning one of the winning 
combinations. The characters 
rank in order of value from the 
‘gold bar’ to the ‘lemon’ (this is 
explained in the program’s in- 
structions). When the game is 
running, you simply enter Y or N 
to indicate whether you want to 
have another spin or exit the pro- 
gram. Note: pressing return gives 
the same result as entering Y. 
James Saunders, 
Riverside, TAS, 


00100 REM ###HHHHHHHEHHRHHRHH HR HHHE 
00110 REM # By 3.Saunders 6-10-85 # 
00120 REM #HHHHRHHHHAHHHHHHHHHHHR HA 
00130 DIM Z1(64) 

001490 V=S:M=0: B=11 

00150 CLS:NORMAL:CURS 10,1; PRINT "#%% WE 
LCOME TO THE GOLDEN EAGLE POKIES! #**" 


00160 CURS 2,4: PRINT"This is a Poker Gam 

e. It will cost you one dollar for each 
"\N"spin. You will be given five dollars 
credit to begin with," 

00170 PRINT"and you may win more money b 
y spinning up one of the winning"\ "combi 
nations. These combinations are listed 

on the next page." 

00180 PRINT"The game is quite simple and 
self explanatory, so Goodluck! "\ 

00190 DATA 0,0,31,63,127, 255, 255, 255, 255 
p20, 200, 200,127,63,31,15 

00200 DATA 227,118,12,152,153, 255, 255,25 
5,255,255, 255, 295, 255, 255, 195,0 

00210 DATA 128,0,248, 252, 198,143,31,255, 
255,255, 255, 255, 254, 252, 248, 240 

00220 DATA 1,1,0,0,0,90,90,0,0,1,3,7,7,3,1 
fe) 

3 

00230 DATA 195,230, 236,249, 24,126,255, 255 
3255, 249, 241, 243, 255, 255, 255, 255 

00240 DATA 0,0,0,0,0,0,0,0,0,128, 192,224 
32249,192,128,0 

00250 DATA 0,090,0,0,1,1,3,7,15,15,15,15,1 
5,31,24,0 

00260 DATA 0,0,3,127,255, 241,227,199, 255 
9 2904 L290, 200, 204, 192,0,0 

00270 DATA 0,24, 248, 240, 240, 240, 240, 240, 
224,192,128, 128,0,0,0,0 

00280 DATA 0,0,0,0,1,3,3,3,7,15,31,63,16 
38,4,3 

00290 DATA 60, 36,126,255, 255, 255, 255, 255 
yp LOD, LID, LID, 24, 60, 60,0, 255 

00300 DATA 0,0,0,0,128,192,192,192,224,2 
40,248, 124,8,16,32,192 

00310 DATA 255, 128,190,161,161,161,161,1 
90,161,161,161,161,161,190,126, 255 

00320 DATA 255,0, 60,66, 66, 66, 66,66,126,6 
6,466,664, 66,66,0,255 

00330 DATA 255, 1,249,133,133,133,133,249 
3145,145,137,137,133,123,1,255 

00340 DATA 0,0,0,0,0,3,7,14,15,6,3,1,0,0 
39,0 

00350 DATA 1,115,54,12,24,255,111,253,18 
3,259, 297,223, 253,118,60,0 

00360 DATA 128,0,0,0,0,192, 96, 240,240, 22 
4,192,128,0,0,0,0 

00370 DATA 0,30,63, 126, 254, 255, 255, 252,2 
52,248, 120,48,0,0,31,0 


00380 DATA 60,122,127,112,113, 255, 254, 25 
94,255,127,127,51,17,17,255,0 

00390 DATA 0,56, 124, 254, 254, 255, 255,127, 
31,31,15,7,1,0,252,0 

00400 FOR 1=63488+65¥16 TO 63488+86#16-1 
00410 READ A:POKE I1,A:NEXT I 

00420 A1S="ABC": BiS="DEF":C1is="GHI": D1is= 
“JKL" 2: E1S="MNO" °F i1S="PQR":G1S="STU" ‘ 
00430 Z18(1)=A1%$:Z196(2) =B1$; 2Z1$(3)=C1$:2Z 
16 (4) =D1G:Z1$(5) =E16:Z1$(6) =Fis 

00940 PRINTTAB(46)3"Would you like sound 
CY/N] 3- “5 

00450 INPUT AOS: IF AOS="N"OR AOB="n" THE 
N LET B=0 

00460 CLS:CURS 14,1:PRINT"¥#% THE WINNIN 
G COMBINATIONS ¥¥%" 

00470 PRINT\\" Some combinations are wo 
rth more than others. ie. three"\“of a 
kind is worth the most, while if the fir 
st and second"\"windows are the same, (o 

r the second and thir"; 

00480 PRINT"d), this is worth"\"more tha 

n the first and the third windows the sa 

me. e.g :-" 

00490 PRINT\\"A1]1] the symbols have an or 
der of value, e.g (from left)." 

00500 PCG:CURS 7,9:PRINT E1%;" "“SE1%5" " 
3E£1%5 : NORMAL: PRINT" > "3;:PCG: PRINT 
E1ss" “SE1S3 "XXX"5 ;NORMAL: PRINT" > 

"$sPCG:PRINT E1LS3"XXX";E1S 

00510 CURS 10,12:PRINT E1%;:GOSUB 1580:P 

RINT A1S;:GOSUB 1580:PRINT Fi%3;:GOSUB 15 

80: PRINT D1i$3;:GOSUB 1580:PRINT B1is;:GOSU 

B 1580:PRINT C1%$: NORMAL 

00320 CURS 10,13:PRINT"Bar 

wberry Bell Pear Lemon” 

00330 CURS 16,15: PRINT"-=#(PRESS ANY KEY 
TO START) ¥=-" 

00540 Q1S=KEYS: IF Q1%$="“THEN 540 

00350 HIRES: CURS 23,4:PRINT"*¥*¥ GAMBLER 

HHH" 

00560 PLOT 160,60 TO 310,460 TO 310,220 T 
0 160,220 TO 160,60 

00570 PLOT 175,180 TO 297,180 TO 297,155 
TO 256,135 TO 254,180 

003580 PLOT 255,180 TO 255,155 TO 217,155 
TQ 217,180 

00590 PLOT 216,180 TO 216,155 TQ 174,155 
TO 174,180 

00600 PLOT 175,180 TO 175,155 

00610 PLOT 296,180 TO 296,155:PLOT 160,1 
40 TO 310,140 

00620 PLOT 190,60 TO 190,140: PLOT 280,64 
O TO 280,140 

00630 PLOT 205,96 TO 210,78 TO 258,78 TO 
263,946 TQ 205,96 

00640 PLOT 173,100 TO 178,100 TO 178,104 
TO 173,104 To 173,100 

00650 PLOT 175,104 TO 175,125:PLOT 176,1 
04 TO 176,125 

00660 PLOT 175,75 TO 175,100:PLOT 176,75 
TO 176,100 

00670 PLOT 176,104 TO 185,125:PLOT 175,1 
04 TO 166,125 

00680 PLOT 176,100 TO 185,75:FPLOT 175,10 
0 TO 166,75 

00690 PLOT 293,100 TO 298,100 TO 298,104 
TO 293,104 TO 293,100 

00700 PLOT 295,104 TO 295,125:PLOT 296,1 
04 TO 296,125 

00710 PLOT 295,100 TO 295,75:PLOT 296,10 
O TO 296,75 

00720 PLOT 296,104 TO 305,125:PLOT 295,1 
O35 TO 286,125 

00730 PLOT 296,100 TO 305,75:PLOT 295,10 
O TO 286,75 

00740 PLOT 285,220 TO 290,230 TO 305,230 
TO 310,220 

00750 PLOT 288,226 TO 307,226:PLOT 288,2 
25 TO 308,225 

00760 PLOT 287,224 TO 307,224:PLOT 287,2 
23 TO 308,223 

00770 PLOT 286,222 TO 308,222:PLOT 286,2 
21 TO 309,221 

00780 PLOT 310,125 TO 320,125 TO 320,140 
TO 310,140 

00790 PLOT 320,129 TO 321,129 TO 321,136 
TO 320,136 

00800 GOSUB 1040:GOSUB 1100:GOSUB 1160:G 
OSUB 1220 

00810 @=1:GOSUB 1160:GOSUB 1100:GOSUB 10 
40 

00820 X=INT(RND#¥7):IF X=0 THEN 820 


Apple Stra 


00830 Y=INT(RND¥7):IF Y=0O THEN 830 

008490 Z=INT(RND¥7): IF Z=0 THEN 840 

00850 PCG:CURS 29,9:PRINT Gis 

00860 FOR I=1 TO 3:FOR U=1 TO 6 

00870 CURS 24,6:PRINT Z1%(U):CURS 29,6:P 
RINT Zi$(U)SCURS 34,46:PRINT Z1%(U):FOR P 
=1 TO 8O:NEXT PS NEXT U:NEXT I 

00880 CURS 24,6:PRINT Z1%$(X):PLAY B 
00890 FOR I=1 TO 2:FOR U=1 TO 6 

00900 CURS 29,6:PRINT Z1$(U):CURS 34,6:P 
RINT Zi(U):FOR P=1 TO 80:NEXT P:SNEXT U: 
NEXT I 

00910 CURS 29,6:PRINT Z1(Y):PLAY B 
00920 FOR I=1i TO 2:FOR U=1 TO 6 

00930 CURS 34,6:PRINT Z1%(U):FOR P=1 TO 
SO:;NEXT PS NEXT U: NEXT I 

00940 CURS 34,6:PRINT 21%(2Z):PLAY B: NORM 
AL 

00950 GOSUB 1280 

00960 IF M+t1>0 THEN CURS 29,11:PRINT"S$"5 
M+i:IF B¢>O THEN PLAY O,35 413145 14521511 
pLlAsLisii 

00970 V=EV+M: M=0 

00980 CURS 4,14: IF V>9 THEN PRINT" YOUR T 


OTAL NOW IS :- $"3V ELSE PRINT" YGUR TOTA 
L NOW IS 2- S$"5V3" " 

00990 CURS 4,15: INPUT"ANGTHER GO ? CY/N] 
7- "R1S 

01000 CURS 4,15: IF B=0 AND V=0 THEN PRIN 
T*SORRY YOU’RE BROKE !'!'!":END ELSE IF 


V=0 THEN PRINT"SORRY YOU'RE BROKE !!!!1% 
:PLAY 4,232,4:END 
01010 IF RiS<>"N" AND R1S<>"n" THEN CURS 


26,14:I1F V>9 THEN PRINT V-13" ":CURS 29 
,ii:PRINT" ";GOTO 820 
01020 IF RiS<>"N" AND RiS<>"n" THEN CURS 
26,19°1IF V<10 THEN PRINT V-13" ":CURS 
29,11: PRINT" "GOTO 820 
01030 PRINT"OK! BYE FOR NOW. "SEND 


01040 REM ROUTINE TO MOVE HANDLE STAGE 1 

01050 PLOT 322,129 TO 322,165 TO 330,175 
TO 330,210 

01060 PLOT 323,129 TO 323,165 TO 331,175 
TO 331,210 

01070 IF @<>1 THEN PLOTR 322,129 TO 322, 
165 TO 330,175 TO 330,210 

01080 IF @>1 THEN PLOTR 323,129 To 323, 
165 TO 331,175 To 331,210 

01090 @=0:FOR T=1 TO 240:NEXT T: RETURN 
01100 REM MOVE HANDLE STAGE 2 

01110 PLOT 322,129 TO 322,151 TO 331,159 
TO 331,180 

01120 PLOT 323,129 TO 323,151 TO 332,159 
TO 332,180 

01130 PLOTR 322,129 TO 322,151 TO 331,15 
9 TO 331,180 

01140 PLOTR 323,129 TO 323,151 TO 332,15 
9 TO 332,180 

01150 FOR T=1 TO 240:NEXT T: RETURN 

01160 REM MOVE HANDLE STAGE 3 

01170 PLOT 322,129 TO 322,140 TO 327,146 
TO 327,156 

01180 PLOT 323,129 TO 323,140 TO 328,146 
TO 328,156 

01190 PLOTR 322,129 TO 322,140 TO 327,14 
6 TO 327,156 

01200 PLOTR 323,129 TO 323,140 TO 328,14 
6 TO 328,156 

01210 FOR T=1 TO 240:NEXT T: RETURN 

01220 REM MOVE HANDLE STAGE 4 

01230 PLOT 322,131 TO 327,131 TO 327,132 
TO 322,132 

01240 PLOT 322,133 TO 327,133 TU 327,134 
TO 322,134 

01250 PLOTR 322,131 TO 327,131 TO 327,13 

2 TO 322,132 

01260 PLOTR 322,133 TO 327,133 TO 327,13 
4 TO 322,134 

01270 FOR T=1 TO 240:NEXT T:RETURN 

01280 REM MONEY CHANGE 

01290 IF X=Y AND X=Z THEN GOSUB 1340:GOT 

0 1330 

01300 IF X=Y THEN GOSUB 1420:GOTO 1330 

01310 IF Y=Z THEN GOSUB 1500:GOTO 1330 

01320 IF X=Z THEN LET M=M+2 

01330 M=M-1:RETURN | 

01340 REM THREE OF A KIND 

01350 IF THEN LET M=M+30 

01360 IF THEN LET M=M+25 

01370 IF THEN LET M=M+21 

01380 IF THEN LET M=M+18 

01390 IF THEN LET M=M+16 

01400 IF THEN LET M=M+15 


| ne | 
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01410 RETURN 

01420 REM tst & 2nd 

01430 IF X=3 THEN LET M=M+7 
01440 IF X=1 THEN LET M=M+6 
01450 IF X26 THEN LET M=M+5 
01460 IF X=4 THEN LET M=M+4 
01470 IF X=2 THEN LET M=M+3 
01480 IF X=3 THEN LET M=M+2 
01490 RETURN 

01500 REM 2nd & 3rd 

01310 IF Y=3 THEN LET M=M+7 
01520 IF Y=1 THEN LET M=M+6 
01530 IF Y=6 THEN LET M=M+t5 
013540 IF Y=4 THEN LET M=M+4 
01550 IF Y=2 THEN LET M=M+3 
01560 IF Y=3 THEN LET M=M+2 
01570 RETURN 

01580 REM SPACER 

01590 NORMAL: PRINT" "53 PCG: RETURN 


VZ-200 CASSETTE INLAYS 


This program is for all you VZ-200/30U users who have piles of 
cassette tapes and want to index their contents so it’s easy to find 
what you want. This program uses the PP-40, a printer/plotter 
distributed by Dick Smith, and makes extensive use of the graphics 
command supported by this printer. The program contains com- 
ments for those users unfamiliar with the required commands, and 
{ for those who are thinking of converting the program. 

lan Dutfield, 

Cromer, NSW. 


> GOSUB 1000 ’TITLE 


>CASSETTE TAPE INSERTS 

»BY IAN DUTFIELD 

7FOR THE U2-220 

> 1673785 | 

7FOR USE WITH PP4@ 

>PRINTER 

7USE IN 4@ COLUMN MODE 

>SET PRINTER TO TEXT MODE 

>? CAN BE CONVERTED TO OTHER 
PRINTERS. 
LPRINT CHR$(17) 

7CR AND LINEFEED 

LPRINT CHR$(13) 

LPRINT CHR$(18) 

>SET COLOUR TO BLACK 
>FIRST GO INTO GRAPHIC MODE 
LPRINT CHR$(18) 

LPRINT "Ca" 

7RETURN TO TEXT 

LPRINT CHR$(17) 


HEYYY... THAT'S 


ONE NEAT CoMPLTERY 
voeYOU SOOT ING ue 


BARRY? 
Its A SINK TWIT? 
& L'M WASHING YP 


MUST BSE A PRETTY HOT 
PROGRAM ~ MY _— 
HAVE EOGCEID INE 


Ce 


| > NOOTH TALK YOUR. FL00Z.'Y 


NO. 4 IN AN OCCASIONAL EDUCATIONAL 
SERIES FOR HETERO NCKERS 
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182 
192 
222 
212 
222 
232 
242 
245 
255 
262 
272 
282 
292 
32a 
312 
315 
322 
321 

322 
323 
324 
325 
326 
327 
328 
329 
332 
340 
352 
362 
372 
382 
392 
482 
412 
420 
43@ 
44Q 
452 
462 
470 


LPRINT " xkk CASSETTE INLAYS xxx" 
LPRINT "" 

7 INTO GRAPHIC MODE TO 
>? PRINT NUMBERS AND LINES 
LPRINT CHR$(18) 
LPRINT "Si" 

> SET SIZE 

7 PRINT NUMBERS 
LPRINT "P1." 

>DRAW LINE 

LPRINT "J446,0" 

>? GO BACK TO PRINT NUMBER 
LPRINT "R-2@0,9" 

> PRINT OTHER NUMBER 
LPRINT "P2." 
LPRINT"R-292, -32" 
LPRINT"P3. " 
LPRINT"J446, 9" 
LPRINT"R-20@, @" 
LPRINT"P4., " | 
LPRINT"R-292, -32" 
LPRINT"PS. " 
LPRINT"J446,0" 
LPRINT"R-20@, 8" 
LPRINT"P6. " 
LPRINT"R-292, -32" 
LPRINT"PZ. " 
LPRINT"J446,@" 
LPRINT"R-28@, " 
LPRINT"PS, " 
LPRINT"R-292, -38" 
LPRINT"PS., " 
LPRINT"J446,9" 
LPRINT"R-22@, 2" 
LPRINT"P1@. " 
LPRINT"R-315, -30" 
LPRINT"P11." 
LPRINT"J446,0" 
LPRINT"R-22@, @" 
LPRINT"P12. " 
LPRINT"R-315, -30" 
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48@ LPRINT"P13." 

498 LPRINT"J446,0" 

908 LPRINT"R-280; 0" 

91@ LPRINT"P14." 

9208 LPRINT"R-315; -30" 

328 SOUND 31; 1 

938 PRINT" CINYVERSEJ FINISHED" :FOR T=1 TO 
1500 :NEXT :RUN 

1000 ’TITLE PAGE 

18618 CLS 

103@ COLOR 8,;@ 

1035 POKE 30744; 1 

1@4@ PRINT@Q, "CTRL+Q,CTRL+TX3@,CTRLtW" ; 
1845 PRINT@448, "CTRLt+E, CTRL+YX30, CTRLt+R" 
} 

1060 FOR Y=32 TO 416 STEP 32 

187@ PRINT@Y, "CTRL+U" 

1888 NEXT Y 

18098 FOR Y=63 TO 447 STEP 32 

200@ PRINT@Y, "CTRL+I" 

2010 NEXT Y 

28640 PRINT@1@9, "U2-200" 

2805@ PRINT@195, "Xxx CASSETTE - INLAYS xXx 
ral 

2660 PRINT@298, "BY IAN DUTFIELD" 

2070 PRINT@388, "PRESS ANY KEY TO CONTINU 


F 
2480 IF INKEY$="" THEN GOTO 3080 
20908 IF INKEY$="" THEN GOTO 3808 


2095 SOUND 31,1:GOTO 4000 

388@ SOUND 28,1 

301@ PRINT@388, "CINUERSEJPRESS ANY KEY T 
QO CONTINUE" 

3026 SOUNP 10,1 

3030 GOTO 2072 

4608 CLS 

4005 POKE 30744,0 

401@ INPUT" CINUERSEJSET UP PRINTER AND P 
RESS <RET>" ;P$ 

4026 PRINT :PRINT:PRINT"PRINTING" 

4030 RETURN 
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Microbee 


HIGH-RES ON 00100 REM HIRES ON SCREEN 2 for the MICROBEE by Ian Florance 1985 


SCREEN 2 00110 REM (it also works on colour bees! ) 


This program allows you to plot 00120 REM 

On ‘screen 2’ of the Microbee, 

simply by exchanging the data of 00130 REM This program eliminates the need to poke, poke and 
both screens, and will also handle 

colour information. It therefore 00140 REM peek to and from the alternate screen. 

eliminates the need to peek and 
poke the alternate screen. You 
can insert your own program after 00160 REM which exchanges the screens. 

line 720, but my listing incorpo- 

rates a library of screen utility 00170 REM Therefore you can simply use as per normal the usual 
subroutines. These are mainly ! 

BASIC statements, so you can 00180 REM basic commands. 

take the program apart at your 
leisure. 


00130 REM It does this by a machine code subroutine 


00190 REM ALSO the program allows you to alter the screen 
lan Florence, 00200 REM display so that you can see both screens at once. 
Magill, SA. 7 

00210 REM All the screen options use BASIC statements which 
00220 REM you may find useful. 

00230 REM 

00240 GOTOS10 

00250 REM SUBROUTINE TO LOOK AT SECOND SCREEN 

00260 IN#O OFF: OUT 12,12:0UT 13,4: IN#O ON: RETURN 

00270 REM 

00280 REM SUBROUTINE TO LOOK AT FIRST SCREEN 

00290 IN#O OFF:OUT 12,12:0UT 13,0: IN®#O ON: RETURN 

00300 REM 

00310 REM SUBROUTINE TO GO TO INTERLACE SCAN 

00320 IN#O OFF:OUT 12,6:0UT 13,735: IN#O ON: RETURN 

00330 REM 

00340 REM SUBROUTINE TO GO TO NORMAL SCAN 

00350 INWO OFF:OUT 12,8:OUT 13,72: IN#O ON: RETURN 

00360 REM 

00370 REM SUBROUTINE TO EXCHANGE SCREENS AND ENTITLE THEM WITH 


00380 REM SCREEN 1 & SCREEN 2 


00390 CURS 28,1: COLOR 6: COLORBO:PRINT"SCREEN 2": B2USR(A): COLOR 13: CURS 28,1:PRIN 
T"SCREEN 1*:COLOR 7: COLORB1: RETURN 

00400 REM 

00410 REM MACHINE CODE DATA TO EXCHANGE SCREENS 

00420 REM (it will also handle colour as well!) 


00430 DATA S58, 0, 248, 71, 62, 0, SO, 0, 248, 62, 64, 211 
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00440 DATA 8, 58, 0, 248, 50, 0, 248, 79, 62, 0, 211, 8 

004350 DATA 538, 0, 248, 254, 0, 120, 30, 0, 248, 32, 34, 62 

00460 DATA 64, 211 , 8, 121, 30, 0, 248, 33, 0, 248, 17 

00470 DATA O, 252, 1, O, 4, 126, 8, 26, 119, 8, 18, 19, 35 

00480 DATA 11, 120 , 177, 32, 243, 62, O, 211, 8, 33, O 

00490 DATA 240, 17 , O, 244, 1, O, 4, 126, 8, 26, 119, 8 

00500 DATA 18, 353, 19, 11, 120, 177, 32, 243, 201 

00310 CLEAR: SD8:STRS(768) :C=O: DIM E(256) ,F (256) : A=PEEK (161) 2356-20498 

003520 REM Machine code is completely relocatable 

003530 REM I have chosen 2k down from top of memory 

003540 FORI=ATOAt+91: READ B:C=BtC: POKE I1,B:SNEXTI 

OOS50 IF C<>7314THEN CLS: PRINT: PRINT"ERROR IN MACHINE CODE DATA - CHECKSUM ERROR 
"STOP 

00360 REM clear both screens 

003570 COLOR 7: COLORB4: CLS: PRINTTAB(28);"SCREEN 2": B=USR(A) :COLORB1: CLS: PRINTTAB( 
28); "SCREEN 1” 


00380 REM MENU 


003590 A1S$="PRESS ‘'1’- view screen 1, ‘2’- view screen 2, ‘3’- normal scan, 
‘4’ - exchange screens i& 2, " 
00395 ALS=A1LS+"'S'’- interlace scan mode on, any other key to continue" 


00600 C=LEN(A1%) :FORI=1TOC:E (1) =PEEK(61503+1) SPOKE 61503+1,ASC(A1$(31I,1))2NEXTI 
00610 REM next line is to poke in color if necessary 

00620 IF PEEK(153)=23535THENFORI®1 TOC: OUT 8,649:F (1) =PEEK(463551+1):POKE 63551+1,7:N 
EXTI:OUT 8,0 

00630 A1LS=KEYS: IFA1$=""THEN6GSO 

00640 FORI=1TOC:POKE 61503+I1,E(1I) :NEXTI 

00650 IFPEEK(133) =255THENFORI=1TOC: OUT 8,64: POKE 63531+1,F (1): NEXTI:OUT 8,0 
00660 IF A1#="2"THENGOSUB250: GOTOS90 

00670 IF A1#="1"THENGOSUB280: GOTOS90 

00680 IF A1#="35" THENGOSUB310: GOTOS90 

00690 IF A1S%="3" THENGOSUBS40: GOTOS90 

00700 IF A1l%$="4" THENGOSUB370: GOTOS90 

00710 REM 

00720 REM YOUR program may be inserted from here on 


00730 REM My program draws a four-leaf clover and cardiod 
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00740 REM on screen 2, switches on interlace scan and returns 


00730 REM to the menu 

00760 B=USR (A) : COLORBO: SD4: HIRES: X1=128: ¥1=128: X2=384: Y2=128:S1=1. 630: S2=350 
00770 REM x1,y1 is the centre of the first figure & x2,y2 the center of the 2nD 
00780 REM sl & s2 are the scaling factors for the x & y coords 
00790 FORF1=#0TO6. 28STEPO.04:C1=COS(F1) :C2"2SIN(F1) #S2°R1i=1+C1:R2=2SQR (ABS (COS (2#F 1 
»)) COLOR 6:SET INT(RIXCI#S14+X1), INT(RI#C2+Y1) > COLOR 135:SET INT (R2#CL¥S1H2+X2), 1 
NT (R2#C2Z#2+Y2) :NEXTF1 


00800 COLOR 4:CURS 18,2:PRINT"CARDIOD":CURS 40,2: PRINT"FOUR-LEAF CLOVER" 


00810 SDS:COLOR 7: COLORB1: B=USR (A) : GOSUB3 10: GOTOS90 


BYTECYCLE Bytecycle Surround 
RR 1@ MODE @:ICLS 
SU OUND 20 GOSUB 500 
Bytecycle Surround is a two- 39 x1#299:y1#8206 
player game in which each player 4@ x~2=340: 322200 
tries to force the other into the 5@ gx.1=-4:sy,180 : x=4 ya? 
energy fieldsurroundingthe play- 60 sx, 2=+4:sy.2=0 
ing area, or to crash into the trail 7@ WHILE NOT(¢P1 AND P2) 
of a bytecycle. 8@ IF NOT INKEYCuP.12 THEN ay. l=y'sx. 120 
_ Player one moves using the 9@ IF NOT INKEYCup.2) THEN sy. 224 ‘'sx.2=0 
joystick, and player two moves 168 IF NOT INKEYCdw.1) THEN sy. 1=-y'sx. 120 
using the cursor arrow keys. This 11@ IF NOT IHKEY¢dw.29 THEN 34.2"-y ‘ax. 220 
arrangement can be changed by 12@ IF NOT INKEYC1f.1> THEN sx. 1=-x'sy¥,1=0 
altering the key numbers in lines 13@ IF NOT INKEY< 1.2) THEN sx. 2=-x':sy.280 
530 — 560. 140 IF NOT INKEYCrt.19 THEN sx. 1=x:sy.1=0 
Bruce Daniel, 150 IF NOT INKEY(rt.2> THEN sx. 2™x'sy,220 
Mudgee, NSW. 16Q PIZTESTCx1+sx.lsyl+sy.1)9 : P2RTEST( x2+ex.2,92tay. 2) 
170 IF p14>0 OR peso THEH 3060 
186 MOVE x1l,91 “l=xile¢su.] ¢ yl=yl¢sy.1 : DRAW xloyled 
196 MOVE x2.92 + x2™=x2+ex%.2 + y2my2tsy.2 «© DRAM x2,42,3 
268 WEND | 
210 : 
200 IF P1<>6 THEN PS="Player 2" ELSE IF P2e<>6@ THEN PS="Player 1" 
319 SOUND 2:391,49,14,8.1.1 
329 IF P1<>6 AWD P2038 THEN PS®@"Nobody" 
330 wHh=pS$+" has Won. " 
348 LOCATE 10-LEHC w$ 2.2 
390 PEN 14: PRIWT wS 
368 WHILE INKES< 2°": WEN 
3°08 PEN 15:LOCATE 4.24: FRINT "Press CENMTER?"; 
320 kyS=""“ WHILE kyS$< >CHRSC 139 AND ky Sc >"AK" ky Se INKE YS: WEHD 
3398 RUN 
400 : 
566 INK 6.16: INK 1,26: IWK 2.6:INK 3.14: BORDER @ 
Y16 MOVE &.6 
220 DRAW 639,.0.1:D0RAW 629,399: DRAW @,.399:DRAW 8.9 
~30 UP.1L®72 : uP. 23 
340 dw.1=73 : dw.2=2 
s04 1f,12=74 + lf. 225 
— iE rt. l]="5 ¢: ort. 2a] 
2°@ RETURH 
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MORSE TUTOR 
(again) 


In the June ‘85 issue of Your Com- 
puter we published a Morse Tutor 
program written by Basil Heath 
for the TRS-80 MCI1O. It was 
wrongly listed as being intended 
for the VZ200. As a result, Basil 
received several letters and 
phone calls from VZ200 users 
who pointed out first that the 
print had been reduced so much 
it was difficult to read, and 
second that the program didn't 
work (for obvious reasons). 
Basil has very kindly collabo- 
rated with a friend who owns a 
VZ200 in rewriting his program for 
that machine. Here we've listed 
both versions (with the right 
machine headings, this time). 
Our apologies to the many peo- 
ple we mislead by this mistake. 


TRS-80 MCIO 


2 PRINT"AUTO-RUN" > PRINT"YESC1)2" >: PRINT"NO- €2)” 


= WO AON Oe Poe 
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REM MORSE TUTOR PROGRAM: CLS 
PRINT" AUTO-RUW" =PRINT" YES 1 oa" (PRINT HOC 2 9" 
CLEAR 506 
DATA 63.62.66.56,48.32.33,33.39.497,.6,17;21.9,2,26,11,16,.4,38 
DATA 13,18,.7,5,15,.22,27,18,6,3,.12,24.14,25,29,19 
INPUTR  DIMBSC Zé > 
FORI=17036:READJ:LETBS¢ I S=CHR SC JI 
HEATI:NCLS 
INFUT"SPEED* WPI 9° MAX i SPEED 

LET SPEEO=5.%”SPEED 

INPUT" DELAY< 6-15 57"; DELAY : DELAY=DELAY*358 

INPUT "NO: -CHARACTERS< MAX 200 >"; 1 
IMPUT"LETTERSS 1 NUMBERS 200R BOTHS 2o7"GL 

CIM Tac» 

CLS: PRINTTABS So" MORSE TUTOR PROGRAM": FORI=1 TON 
LETTS I SRCHRSC RNS 1OK-1KC LC 21 +26 KA LEC LS 92 3 41 OK-1TKCLE1 DS 
NEXTI: FORIT=1 TON 

LETA=ASC*C BSC ASCO TSC 1 999) 

LOSUBES 

IF L=IHT¢ 1-5 045 THENZS 

IF 1=NTHENS? 

HEAT I 

FOR Z=1 TO INTC 2OQ4SPEED+¢ DELAYS » 9: NEXTZ 
GOTOES 

FORI=1 70H 

IF ASCO TSO 139316 THENSS 
PRINTCHRS* ASCS TSC I 9 94+47 9; 

GOT048 

PRINHTCHRS* ASC? TS I 94+54 9; 

IF IaIWT< 1425 ke5THENSE 

IF IsINT¢ 145 S4STHENGS4 

IF I=NTHEN4S 

NEXTI 

PRINT" "4 

GOTO42 

PRINT 

GOTO42 

IF R< >2THENSG: PRINT: PRINT: PRINT 

PRINT"PRESS KEYC 1>CEMHTER? TO RE-TRY'" 
PRINT"PRESS KEYC 2 CENTER? TO EXIT" 
INPUTP : IFP<2THEN1E 

DATA 86.32.79,71,82,65.77,.32,.66,.39,.58,45,32,66,46,72,69,65 
DATA 84.72,32.86.75,52,65,66, 72 

CLS: PRINT: PRINT 

FORTI=1T027 

READA . 

PRINT CHRSCR 2; 

NEATI: END 

LETY=K-/2:LETK=INTCY > 

=" 2ASPEEDES 1+¢ VK ¥4 9D 

SOUNDZS, G 

IF A=1 THENSS 

FORZ=1TOINTSC 4045PEED >: NEXTZ 

GOTH6S 

FORZ=1TOINTS 12045PEED+¢ DELAY #3 9 3: NEKTZ 

RETURH 

PRINT: PRINT: PRINT"PRESS-’ BREAK’ -TO EXIT". 
FORT=17016008:HEXTI :GOTO16 


109?" 


CLEAR 500 


DATA 


»,10,8 


6%,62,00,56,48, 32,33,35,39,47,6, 
Pini ne wearer nae es aan rete rt | 


17,21 


[NPLT R 
DIM BRC 36) 


£95 2,20, 11, 1654,,.30% 13,18.:79 55 15,;22,2 


POCKET PROGRAMS 


TRS-80 MCIO 


8S FOR [-1 TO 36:READ J:LET BSCI)=CHRS$(J) 
9 NEXT 1:CLS 
10 INPUT" SPEEDCWPM) (MAX 159?";SPEED 
11 LET SPEED=7.5/SPEED 
12 INPUT"DELAY*Q 15)?" ; DELAY : DELAY =DELAY*50 
13° INPUT"NO: -CHARACTERS (MAX 200)";N 
14 INPUT" LETTERS(1)NUMBERS(2)OR BOTH(3)°?";3L 
15 DIM TSC(N) 
16 CLS:PRINT TAB(C5)> "MORSE TUTOR PROGRAM":FOR 1=1 TO N 
17 LET TSC1)=CHRSCRNDC10*-1*(L< >1)+26*-1* CLs >2))+10*-1*(L=1)):NEXT I 
18 FOR 1-1 TON 
19 LET X=ASCC(CBS$CASC(TS$SC1)))) 
~ 20 GOSUB 65 
23 IF 1-INTC1/5)«*5 THEN 29 
25 FF 1=N THEN 32 
27 NEXT I 
29 FOR Z=1 TO INT(200*SPEED+ (DELAY*5)):NEXT Z@ 
30 GOTO 25 
32 FOR I-1 TON 
34 IF ASCCT$C(1T))2>10 THEN: 39 
37 PRINT CHRSCASC(CTSCI))+47); 
38 GOTO 40 
39 PRINT CHRSCASC(CTSC1))+54); 
40 IF I:-INTCI/25)*25 THEN 46 
41 GF JT-INTCE/5)45 THEN 44 
A2 IF I-«N THEN 49 
43 NEXYF I 
AG PRINT” "; 
AS GOTO 42 
46 PRINT 
47 GUTO 42 
49 IF R°> >2 THEN 90 
50 PRINT: PRINT: PRINT 
51 PRINT"’PRESS KEY(1)CENTER)TO RE-TRY":PRINT "PRESS KEY(2)(CENTER)TO EXIT” 
52 INFUT P:1IF P 2 THEN 16 
3 DATA 8U,82,79,71,82,65,77,32,66,89, 
2,06, 72 
CLS: PRINT: PRINT 
FOR [=1 TO 27 
READ A 
PRINT CHRS( A); 
NEXT IT: END 
695 LET Y X/2:LET X: INTCY) ’ 
67 Q: (2*SPEED4€1+CY -X)*4)) 
70 SOUND 200,Q 
75 IF X=1 THEN 80 
77 FOR 4:1 TO INTCAO*SPEED) : NEXT Z 
78 GOTO 65 
80 FOR Z=1 TO INTC120*SPEED+ (DELAY*3)):NEXT Z 
85 REFURN 
90 PRINT: PRINT: PRINT"PRESS~'BREAK'-TO EXIT" 
95 FOR [-1 TO 10000:NEXT I:GOTO 16 


i,) 


8,45,32,66,46,72,69,65,84,72, 32,86, 75,52, 


Si 


TAA AAH YW 
Wm Ona 


xn 


Microbee 


DRAWER NI090 ON ERROR GOTO 999 
QOOLOO CLS:FRINT TAR(26)"## DRAWER ##° SF RINTTAR (26) "####HHHHHHEH " 


QOO105 CURS 28,.46:F RINT" >>MENUS<" 
Drawer lets you draw high-res pice 900110 CURS 26,.8:FRINT"1] DRAW": FRINTTABR(26)"2) LOAD FILE":FRINTTAB(26) "2) KILL F 
tures on the screen and save [LE":PRINT TAB(26)"4] DIRECTORY":PRINTTAB (26) "5 END" 

OO12O ALIS=KEYS:IF ALS="" THEN 120 


them on disk as graphics files. A oi156 Let az=val(ai$):LET B=INT(A2) 

default extension of .GRF is given) oo140 ON B GOTO ZOO, 400, 600, B00, B50 

to these files (for example, ‘pice oo0150 GoTa 120 

ture.grf’ may beafileonthedirece ©9200 CLS:FRINT " To create your drawing use the keys"\\TAB(35) "Q W E'\ TAR ¢ 
So) "A D'\ TAR (C35) "Z X CG" 


tory) . ; : 0 O21 
The main menu gives the op- 
tions: 


FRINT\"Each key 15 used to direct the pointer (pencil). oe 
is used to turn pointer on & "3* off." 
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1) draw a picture 

2) load a graphics file 

3) kill a file 

4) display the directory or 
5) end the program 


The program will give instruc- 
tions if you select option 1. The 


keys QO, W, E, A, D, Z, X, C are used: 


to guide the pointer around the 
screen. Typing ‘2’ turns the poin- 
ter off, allowing you to move 
around the screen without draw- 
ing lines, as well as letting you 
erase old lines. The DRAW mode 
also allows you to save the pic- 
ture and continue. The number of 
PCGs used is shown in the top left 
corner — this must not exceed 
128. 


Ken Rowe 
Dernancourt, SA 
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OO22O PRINT\"To save your drawing on a file oress ‘°°. To 

return to the menu press "M*."\ | 

OO222 FRINT" The number shown in the too left carmer can NOT exceed 128"\\TAR(27) 
"Press soace bar to start..."3 

QOOS7O ALRS=KEYS: IF ALSO" “ THEN 220 

QO240O CLS:HIRES:LET X=240:;Y=122:V=0 

OO24S CURSLISFRINT" DRAW MODE" 

NOP4aS FOR 1=0 TO 481 STEF 480:FOR J=0o TO 228 STEF 8:SET I,.J:NEXT J:NEXT I 

QOO2SEO SET X.Y 

OO2SS5 IF Vet THEN RESET X,Y 

OO26OQ LET Z=FPEER (258): IF Z=1 THEN LET X=xX-1 ELSE IF 2Z=4 THEN LET *=X+1 ELSE IF 
Z=D™" THEN LET Y=Y+1 ELSE IF Z=24 THEN LET Y=Y~-1 

QooO270 IF Z=17 THEN LET X=X-1:Y=Y+i ELSE IF Z=5 THEN LET X=X+1:Y=Y+1 ELSE IF 2=26 
THEN LET X=X¥—-1:Y=Y~-1 ELSE IF Z=3 THEN LET X=X+1:Y=Y~-1 

OO2ID IF X>4680Q THEN LET X=480 ELSE IF x= 1 THEN LET X=1 

NOI IF Ye228 THEN LET Y=238 ELSE IF Yil THEN LET Y=1 

OO27S IF 2=2= THEN LET V=0 ELSE IF Z=24 THEN LET V=1 

QOOL77 IF Z=12 THEN 100 

OO2B0 IF Z=ia2 THEN 310 

OO290 IF USED.128 THEN CURSL:FRINT USED 
OoO2>95 IF USED=128 THEN CURS1I:FRINT"STOF 

OOOO GOTO 250 


QOg210 CURSL:FRINT" 


revs OUT 2, 69:0UT 2,65 


"sCURSIL: INFUT'NAME ?" INI 
OOZ2Q IF LEN(NI#) -@ THEN 210 a 

OOZES CURSLIIFRINT'FILE SAVED AS °"3sN1%$:".GRF*" 

OO275 LET Nit=Nis+". GRE" 

OOZZO CLOSE 6: OFEN "A", 5,N1$ 
QO240 GRSAVE 6 

OOS5O CLOSE & 

Ooz6aQ GOTO 245 

HO4aodo CLS: CLOSE & 

OO410 INFUT "WHAT FILENAME 7's Nis: 
O0420 OREN "I" ,6,N2% 

OO440O GRLOAD 6 

OO470 CLOSE 6 

QOO480 CURS1:LETX=256: Y=128:V=1: GOTO 245 

Q0600 CLS:DIRSFRINT\\: INFUT"FILE TO KILL 7" SNE: 
OOS61O (ILL NEF 

OOS520 GOTO 100 

OoOBad CLS:DIR 

OOBOS PRINT\\"FRESS SFACE BAR TO RETURN TO MENU" 
OnB81O IF KEY$< >" " THEN 810 ELSE 190 

OoOBSO CLS:FRINT"END":END 

QON999 PRINT" 

O1000 IF ERRORC=146 THEN CLS: CURS1I8: INVERSE: FRINT" YOU EXCEEDED 128":FLAYO, 15: NORM 
AL: GOTO 90 

OLO10O IF ERRORC=45 THEN CLS: CURS19: INVERSE: FRINT"FILE NOT FOUND ERROR": NORMAL: FL 
AYO.15:GOTO 90 

OLOO0 PRINT'ERROR ":ERRORC: " 


N2S=N2$¢+". GRE" 


LET N2$=N2$+". GRE" 


IN LINE "sERROFL: END 
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SMAKER @@1@@ REM SMAKER 25/4/85 RICHARD LARKIN. 


are , @@11@ ON ERROR GOTO 75@ : POKE 162,30 : POKE 163,128 : P 257.2 
Smaker is a ‘sprite generator ze , OKE OKE 25 


written in BASIC. It allows you to @@12@ DIM X@¢200), YOC 200), KBC1? 

create a line drawing of some- 

thing and, by writing down the @0120 P=O0 =: M=@ : XO(O)=2755 : YOcO:=255 : SOs=" " s Si¢="FRBMELSC" 

data, recreate it in your games 2: S2=9 =: CLS = PRINT “SPRITE MAKER~by Richard Larkin. "&"Please enter tithe of s 

: ; Prite. woos I6%="KEY" 3 

-and so on. It is better than the 

usual method in that it uses ab- ga@i4@ ZONE1G = INPUT T1i% : Ti#=T1$0C31,16) = PRINT “Would you Like the origins "\" 

out one-seventh of the memory) 1) Battom Corner"X"2) Middle"\"of the grafix screen ?" 

usually required and is more . . -_ 

liquid: that is, you can easily @0iS@ O1%=KEY : IF O1%="1" OR O1%="2" THEN 160 ELSE 150 

move, scale or rotate the sprite. ggieo ov=0 
To apply the program, first in- 

vent a name for your sprite; for @@170 GOSUB 660 

example. Maurice. 


> IF O1%="2" THEN LET O@=128 


NOTES: 
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Run the program. Enter the 
name. Now decide what Maurice 
looks like and whether you wish 
to use a co-ordinate system or 
move a dot about the screen. 
Some instructions are supplied 
from within the program. 

In KEY entry mode the prompt 
asks you to enter the co-ordinates 
of the next point. You may type 
numbers between 0 and 253 or 
-128 and 126, depending on loca- 
tion of origin. First type the X co- 
ordinate followed by either RET 
or /, then the Y co-ordinate fol- 
lowed by RET or /. The new point 
will be entered at the present 
location in the file, and a new line 
drawn on the screen. 


In DOT entry a point is moved 
about the screen using the keys (, 
?,’ and +, which form a diamond 
on the right side of the keyboard. 
Selecting the number keys 1-9 


will alter the step size taken by- 


the dot. Type P to enter a point 
when you have arrived at the in- 
tended location. 

I starts a new line 

C changes between DOT and 
KEY modes 

E ends the file at the location of 
the pointer 

B and F take you backwards 
and forwards through the file 

S redraws the sprite with any 
corrections you have made 

M gives you the menu for extra 
commands 

The six extra commands ex- 
ecute movements along the X 
and Y axes, scale changes of the X 
and Y axes, rotate sprites, and 
print data. These are easy to work 
out, so explanations are not re- 
quired. : 

When using the rotate com- 
mand, the program will ask you 
how many degrees you wish to 
turn by, then return you to your 
input mode to choose the point 
about which to rotate. Rotating 
cause scale changes, since the lit- 
tle points on the screen are really 
rectangles, so a scale correction 
may be necessary afterwards. 

The subroutine allows you to 
use your data in your own prog- 
rams, or you might prefer the one 
| used in the actual program. It’s 


up to you! Richard Larkin 
Dee Why, NSW 
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@@iS@ CURS @ : PRINT "“<SPRITE MAKER) #"TISA"M for menu A"B back one pointUdN"F for 
ward a poimt"N"E end sprite "A"L fine end "¥"S sprite veodatelA"C change dot/key on 
put" 


@@i9@ CURS 1,11 = PRINT S@# = CURS 1,11 : IF X@¢P)=255 THEN PRINT "END OF SPRITE 
"\SQ$ ELSE IF X@¢P)=254 THEN PRINT “END OF LINE"¥S@$ ELSE PRINT"X-VAL="xveP)-De" 
Me"¥-VAL="YOCP)-OO"  ™ 


@O200 PRINT "POINTER"P" "X"BUFFER MAX M" "ANPOG USED"USED" "3 TF f6#="poT" TH 
EN 760 

@V210 KOS(OM="" > KOFCLI="" = CURS 1,9 % PRINT “ENTER POINT ¥xxv YYy"fAS Segaytas 
@ S24tA9 S43 2 FOR X=@ TO 1: Kegen" 

Q@@220 KIiS=KEY = IF Kige"" THEN oe 

@@220 A=ASCCKI$) = IF NOTCA=8 OR ABLE?) THEN 2a ELSE IF LENCK2$3)0 THEM LED Ket 


HFK2S$C31, LENCKE$)-1) PRINT CHR¢ L793 = GOTO 220 ELSE oie 

MO24@ IF LENC(CK2$)=@ THEN IF K1i#d) "+" AND KLE O "=" THEN PRINT " "5 Fo Roget" 
@O25@ IF SEARCH(S51%$,K1%) 008 THEN NEXT+#x 25! 

20260 IF Kit="/" OR ASC CKIBI=172 THEN LET KOE CX PERI h GOTO .3@ 


OO@z270 IF CKHIS<"O" OR KISS "OS" AND KRIS T-" THEN 2S@ ELISE LET KoS=N aden le of Tro be 
NCK2$9=5 THEN LET KS8=K2$051,4) ELSE PRINT K1Ss 


Q@@2E0@ GOTO 222 


20290 CURS 16,10 PRINT" /' NEXT x KL=VAL CKOS CO) 9408 
IF Xi? 252 OR X1@ OR YIOSSS OR YIM THEN PLAY 24 GOTO 210 


YI=VAL CRE C11 1408 


OO200 IF R@=1 THEN RETURN ELSE LET x@cP =x}. YOWCRPI=YI 
OO21@ P=P+i =: IF POM THEN LET M=P XMM HVS YAUCM = 5 
@O220 IF P=20@ THEN PRINT "FILE FULL "SOs PLEVY 2°45 PSUSReozey7a sy 8 Pel gg 


MO32=0 IF XOM@¢tP-2) 4) 254 AND XOcP-12 4) 254 AND FSD} THEN PLOT INT CX@cCP- 2) s4e55, INT CY 
coP—-29)9 TO INTCX@¢P-12934255, INTCY@cP-]93 


O0@740 GOTO 192 
MO23Q IF KisS="B" THEN TF PIM THEN LET P= P-4 
OO=60 IF Kigs="F" THEN [TF P<M THEN LET P=P+4 


OO270 ITF Kige"E" THEN LET xW@c Po = 28S 


QOZSO [F Kis="L" THEN LET x@cPr=2ha YMCRP SLES BOTO 2:2 
Q@O@290 IF Kis="S" THEN 172 
Q00400 IF Ki#<)"C" THEN 41@ ELSE TF Te¢="DOT" L6$="KEY" GOTO 170 ELSE LE: [6% 


="DOT" GOTO 170 

O0410 IF Kis<) "M" THEN 198 

@@420 GOSUB EEO 

@0420 CURS @ : A=@ = J=0 PRINT "“1) LEFT/RIGHT'A" 2) UP/DOUWN'A'T) X LARGE/SMALL" 
W"4) Y LARGE/SMALL"\¥"S> ROTATE"A"G) PRINT VALUES" "7) RETURN TO SPRITE"A ‘WHICH DD 
0 YOU WISH ? " 


Q@0440 B=ASC CKEY)-4¢6 IF B<t OR B)?7 THEN G40 ELSE IF B=7 THEN HIRES GOTO 160 
00450 ON B GOSUB 470, SQ, 538, 560, 598, 620 

Q@Q460@ GOTO 422 

@@47@ INPUT "HOW FAR RIGHT?" I@ 


@Q450 FOR x=@ TO M-1 IF XM@CX3 4) 254 THEN LET X@¢xX)=XO€X3+4+10 
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@0490 NEXT X =: GOSUB 710 : IF A=i THEN 480 ELSE RETURN 

@O0500 INPUT "HOW FAR UP?" IO 

@@510 FOR X=@ TO M-1 = IF X@¢X) 0254 THEN LET YOOX) =YOCX)+18 

OOS20 NEXT X = GOSUB 71@ = IF A=1 THEN 510 ELSE RETURN 

Q@O520 INPUT "X-SCALE FACTOR ?" 1[@ 

@Q@540@ FOR xX=@ TO M-i = IF XO¢X) 0254 THEN LET X@¢X9=€XMCX)-00) +10+00 
@@55@ NEXT X =: GOSUB 710 = IF A=1 = I1M=-1/10 : GOTO 540 ELSE RETURN 

@OW56@ INPUT "Y-SCALE FACTOR ?" I[@ 

@0570 FOR X=@ TO M-i =: IF XO@¢CX2 4)254 THEN LET Y@CXK3=C YO X)-00)+10+08 
O@SEO NEXT X : GOSUB 710 =: IF AFl =: I1O=-1/1@ : GOTO S74 ELSE RETURN 


QO8590 INPUT "DEGREES CLOCKWISE" IM = R@=1 = Sigs="" 2 TF T6%="DOT" THEN GOSUB 762 
ELSE GOSUB 190 


QOWE00 RO@=@ =: SiS="FBMELSC" = ABW=-1O+#. O1 745229 = S7=SINCAQ) = C7=COSCAM? =: FOR X= 
@ TO M1 : TF XOX OSSS = TO=XOCKI-X1 2 KOCK HC7H#TO-S7TH#CVOCXI-VLI4FXK1L & YOCK=C7 
*CYOOXI-V¥1I4+574+TO+Y 1 


@@E1@ NEXT X =: GOSUB 710 : IF A=1 THEN 680 ELSE RETURN 
W@E20 A=O = B=O =: FOR X=@ TO M-i = IF BM AND A=B ?: TH=USRCTE774) 


OOE20 IF A=@ THEN CLS = CURS 5 = UNDERLINE = PRINT "X-VALUE Y-VALUE"S §& NORMAL 
> B=i = A=14 


Q@@E4Q IF XOCXI=254 THEN PRINT "254 END OF LINE"$ =: A=A+1 ELSE PRINT #418 INT OXY 
CX¥I4+L, 50 €7 TA INT COVACK 4+, Ses 


@@E5@ A=A—-1 : NEXT X =: PRINT "255 END OF DATA" ANY KEY TO CONTINUE" + l=us 
ROZZ774) + RETURN . 

Q@OEE@ HIRES : C= 

Q@OE7Q A=INTCXO]CCI? =: BRINTCYO@CCd) +: IF ASE5S5 OR A=254 THEN RETURN 

QOESO C=C+1 : X=INTCXMCC)) : IF X=255 THEN RETURN ELSE IF X=254 THEN LET C=#C+1 : 
GOTO 67a 

@0690 Y=INTCY@cC)) = PLOT AtESS,B TO xX+255,Y 

@O700 A=X : B=Y : GOTO 680 

@071@ A=@ : FOR X=0 TO M—-i : IF XOX <@ OR XBOX 255 OR YOCKI(W OR YOCXKI SSS = A 

= 


QO72@ IF CINTCXOCXII=E55 OR INTOXOCXII=SE54) AND INTCYOCXI9 (S55 ¢ A=i t XOCXI=xXo 
CXI+. BBOOO1 


@O7=O0 NEXT X : IF A=1 = J=J+1i : PRINT “SORRY, CHANGE ABORTED. "¥"AS SPRITE Wen? UO 
FF EDGE '" =: PLAY 2436,5 : I[@=-I@ : IF J==2 THEN ERROR 


00740 RETURN 
@@75@ ON ERROR GOTO 750 : CURS 1,14 = PRINT "SPRITE TO COMPLEX TO DRAW. "AX"MAY BE 
TRY SMALLER SCALE?" =: PLAY 43553 2 I=USR¢OZE774) = CLS = GUTO 428 


@@760 INVERT INTCX1924+255, INTCY1) = A=PEEKCE5G3 &¢ TF ABS7 PY1=VYitSe ELSE IF A=47 
: Yi=Y1-S2 ELSE IF A=@ = X1i=X1i+S=2 ELSE IF A=42 2: X1=X1-5S2 


@O776 IF X1<@ : Xi=@ ELSE IF X1)25% : X1=252 ELSE IF Y1<«O@ = Y1l=M ELSE IF Yio ess 


© Y1=255 
@W78@ INVERT INTCX1)+255, INTCY1) = KI$=KEY = IF SEGRCH(S1$, K1$) OO THEN 250 


@0790 IF Kis<":" AND K1$)"O" +: Se=VALCK1S) ELSE IF K184)"P" THEN S@@ ELSE IF RO= 
1 THEN RETURN ELSE 200 


@@ES@OW CURS 1.9 : PRINT "DOT POS ="INTCX1-OO"/"INTCY1-OO) fAIO SeFQ" STEP SIZE"S2 
= GOTO 760 
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1@8@@0 REM POKE DATA INTO MEMORY 


1001@ REM LET E=ADDRESS OF DATA FOR SPRITE TO DRAW 
10020 REM LET X,Y = CO-ORDINATES TO PLOT SPRITE AT 
10020 REM GOSUB TO THIS ROUTINE TO PLOT SPRITE 
1O@O@40 X=X-126 = Y=V-125 


1@@50 A=PEEKCE) = E=E+1 =: B=PEEK(CED 


1@@E0 E=E+1 * C=PEEKCE> = IF C=255 THEN RETURN ELSE IF C=254 THEN LET E=E+1i =: GO 
TO 10058 


10070 E=E+i = Y=PEEKCE) = ON ERROR GOTO 10080 =: PLOT A+X, B+Y TO C+X,D+Y = GOTO 1 
2298 


1Q@@S@ ON ERROR GOTO 10090 : PLOT C+X,D+Y TO A+X, B+Y 


1Q@09@ A=C =: B=D : GOTO 10@60 


Microbee 


M 
POCKET PUZZLE O01t0 CLEAR CLS s CORES? DIN P16), Gici00) : F 
00120 POKE 257,2 


As a child you probably playeda 00130 H1#=KEyYs 


: _ 00140 INPUT “Do you want instructions (Y/N)? “H1$ 
handheld version of Pocket Puz- 99150 IF His="yY* THEN GOSUB 640 


zle. In this game the computer 090160 cLs 
jumbles up the letters ‘A’ to ‘O’ 00170 REM xxxx* Create Puzzle «xxx 
Be ere ob ie6 LEDr 6 a6 70/as Ata Severe ; 
i i » » r »>8 TO 0,4 

Ui sulci revlon ar na 00200 CURS 110 : PRINT “Pocket Puzzle" : PLOT 91,41 TO 118,41 

00210 FOR X=1 TO 15 : READ A,B,C : FOR Y=1 TO 9 : POKE 60000+A+Y,188 : POKE 6000 
by 4 square and only those adja- 0+B+v,255 : POKE 60000+C+Y,143 : NEXT Y : NEXT X 
cent to the blank square can be 00220 REM xxxxx Jumble up the letters xxx«xx 
paved: 00230 FOR X=1 TO 16 : P(X)=0 : NEXT X 

Lonnie Riley 00240 FOR X=1 TO 15 
00250 Y = INTCRND*15) + 1 


Banyo, Qld 99260 IF PCY) > 0 THEN 250 
00270 PCY)=X 
00280 NEXT X 
00290 REM xxxxx Display letters on blocks xxxxx 
00300 FOR X=4 TO 12 STEP 4 
00310 Y=133+¢€X/4*192)-192 
00320 CURS Y : PRINT " "“CHR(CP(X-3)+64)" “ : CURS Y+10 : PRINT * “CHR(PCX-2)+64)” 


CURS Y+20 : PRINT “ "CHRCP(X-1)+64)" " : CURS Y+30 : PRINT ” “CHRCPC(X)+64) 


NEXT X 
FOR X=10 TO 30 STEP 10 : CURS 699+X : PRINT ” “CHR(P(12+X/10)+64)" " : NEX 


REM xxxxx Accept Input xxxxx* 
CURS 430 : PRINT “Your move : ° 
CURS 494 : PRINT (A17 32) : PLAY 1,1 : CURS 494 : INPUT G1$ 
CURS 558 : PRINT (A117 32) 
00400 Y=ASC(G1%) : Y=Y-64 
00410 FOR X=! TO 16 
00420 IF P(X)=Y THEN LETM=X 
00430 NEXT X 
00440 IF (F=M+1) OR (CF=M-1) OR (F=M+4) OR (F=M-4) THEN 470 
00450 CURS 558 : PRINT “Sorry! Try again.” : GOTO 380 
00460 REM xxxxx Blank out square to be moved xxxxx 
00470 RESTORE 700 : FOR X=1 TO M : READ A,B,C : NEXT X 
00480 FOR X=1 TO 9 : POKE 60000+A+X,32 : POKE 60000+B+X,32 : POKE 60000+C+X, 32 


Microbee 
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NEXT X 
00490 REM xxxxx Display square in new position xxx 
00500 RESTORE 700 : FOR X=1 TO F : READ A,B,C : NEXT X 
00510 FOR X=1 TO 9 : POKE 60000+A+X,188 : POKE 60000+B+X,255 : POKE 60000+C+X,14 
3 : NEXT X 
00520 POKE 60000+B+4,32 : POKE 60000+B+5,P(M)+64 : POKE 6G0000+B+6, 32 
00530 PCF)=P(M) : PC(M)=0 : F=M 
00540 REM xxxxx Determine if puzzle solved xxxxx 
00550 Y=0 : FOR X=1 TO 15 
00560 IF PCX)<>X THEN LETY=1 
00570 NEXT X 
00580 IF Y=0O THEN CURS 812 : PRINT “Congratulations!” : PLAY 13233343332;1 : GOT 
O 600 
00590 GOTO 380 
00600 Hi#=KEY$ 
00610 CURS 881 : INPUT “Play again? “"H1$% 
00620 IF H1%="Y" THEN 110 ELSE END 
00630 REM xxxxx Instructions xxxxx 
00640 PRINT : PRINT "Welcome to Pocket Puzzle!" 
00650 PRINT : PRINT "This is the same Pocket Puzzle that you have probably”\"pla 
yed as a child.*\ 
00660 PRINT “The computer will mix up the letters A to O and it is your job"\"to 
sort them into alphabetical order. Only letters"\"“ajacent to the blank square c 
an be moved!” 
00670 PRINT : PRINT 
00680 PLAY! : INPUT "Press any key to continue "H1$ : RETURN 
00690 REM xxxxx Data statements for graphics xxxxx 
00700 DATA 1505, 1569, 1633, 1515, 1579, 1643, 1525, 1589, 1653, 1535, 1599, 1663 
00710 DATA 1697,1761,1825,1707,1771, 1835,1717,1781, 1845,1727,1791, 1855 
00720 DATA 1889, 1953, 2017, 1899, 1963, 2027, 1909, 1973, 2037, 1919, 1983, 2047 
00730 DATA 2081,2145,2209,2091,2155,2219,2101,2165,2229,2111,2175, 2239 


Pocket Puzzle 
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STAR WAR 


This program is for the Sega 

home computer. It will also work 

on the Sega 3000 and 3000-H, and 
can be run from a disk. 

Jan Jacobsen 

O'Sullivan Beach, SA 
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ee q 
}. ‘s 5 


By Jan Jacobsen ¢C: 
FROM =.4 USER CLUB 


U 

10 FEM EERE REED EERE EREEE EEE ERE EEE E 
2O REM AE EY coe 3 
OO REM 44h JAN JACOBSEN cot 3 
40 REM $4 (Co 1385 $4# 
BO REM 44:44 EE EE RREEREEE EEE EEE EEE EEE 
60 SCREEN 2, 2:COLOF1,15,,15:CLS 

70 RESTORE 


80 COLORL, 10, (O,0~C255,191), 10 
90 COLOFRL,6, (156,8)-(224,60), 10 


100 COLOF1,6, (130, 168)-C255, 191),10 
110 LINE C1S0O, 168)~-C255,191),1,8 

120 LINE C143, 80)~-(247,152),1,B 

130 LINE C136, 99-~(251,60),1,5 

140 COLOR1, 15, (148, 80)-¢ 240, 152),10 
150 LINE (8,8)-¢(120,176),1,8 

160 COLOR, 15, (8,89-¢115,176),10 
170 CIRCLE (86,39), 1, 199+, BF 

180 CIRCLEC7S, S68) ,1, 1555, BF 

190 CIRCLEC1968,106),1,15595, BF 

200 CIRCLE C206, 106),1,19955 BF 

21lO CIRCLE C202, 110), 2, loo» » BF 


CURSOR I S4,170:FRINT'By Jan Jacobsen ¢C) 
CURSORIS+4,179:FRINT" FROM S.A USEF CLUB" 


‘aac OD 


wa 


240 R=F+1 

2090 READX, Y 

260 ITF X=0OTHENREADX, YilLINECX,Y)-¢X,Y) 

270 IF X=- 1 THENSSO 

“B80 LINE-(X,Y) 

290 GOTOL40 

300 DATAQ,O, 76, lity 70, 20, 715 28, 73, Sey 73, S4y Fy AO, 73 44) 74) SO, 72 SG, GB, 64,60, 72,52 


178, 46,88, 42, 96,40,100,40, 112,42, 120,40, 128, SB, 136,35, 138, 32,138 

210 DATA 2,124, 32,150, 56,151,40, 150,44, 149, 48, 148,52, 146,55,159, 56, 160, 86, 174, 84 
¥170,80, 166,68, 156, 64, 154,62, 145 

S20 DATA 72,147,759, 143, 80, 156, B84, 160,108, 166,116, 166,112, 162, 90, 154, 90,136,92,13 
ee IG, led, 102,116,102, 112,102, 108, 100, 104, 98, 100, 98, 96, 100, 92,102, 88 

230 DATA 104, 84,105, 80, 106, 76, 104, 72, 100,60, 94,48, F4, 40, 93, 32,97, 2B, II, S4, 100, 20 
» D9, 14, 94,16, 92,18, 88, 25, 84, 25, BS, 20, BO, 16, 76,13, 76,12 

340 DATA 0,0,44,114,42,120,42, 125,48, 132,52, 146,0,0,58, 94, 60, 96,64, 100,66, 104, 66 
,108,66, 120,64, 128,62, 140,622,145 

250 DATA O40, 75,175 74) 204 73, Sty 7G, 2By 7B, 29, 79, ZB, TDs Sty 77, 20, 75571790, 0, 81,19, Bz, 
24,83, 29 

360 DATA ©,0, 84,64, 85,68, 85, 72, 85, 76, B84, Bl 

370 DATA Oy 0, 4,475 Foy 20,89, S44, BB, S95, 0,0, 92, FO, 90, 24,87, 2B, 9S, 25, 95, 21,0,0,87, 35 
ety Sy Bd, 455 Oy Oy 7G, BG, 777 44, 74,47, 74,49, 80, 55, BB, 4B, 91,40 

3BO DATA O70, 81947, 79, 49,79, S15 7D, by 7G 479 Oy Oy 779 Sy 7By Soy 7D, Sey BO, 5S, 0,0, 590,38 
786,41,0,0,05,47,82,49,0,0,85,49, 82,51 

320 DATA 0,0, 68,64, G6, 76,68, B+, 70, BB, 71,5 Fe, 7S, IG, 74, 100, 76, 116,0, 0, 80, 79, 78, BB, 7 
De LOO, 7, 1122, 78,116, 0,0, 94,80, 93, 92, 91,100,87,112,0,0,100, 92, 91,112,0,090,79,143,9 
O,1594,0,0,95,111,72,118,0,0 

4OO DATA JI Gt, 86, nV? » 1 4c}, ZOT 146, Oy Oy 168, 84, 18s, 1 10, Oy Oy, 184, 104, 186, 96, 185, B65, Oy Q 
¥196, 34, 182,90, 161,85,0,0,178, 105, 167797, 0,0,171,103, 165, 104, 161,101,0,0,196,120 
ye2OQd, 1 Se,O,0, 210, 138, 216, 144, 217, 148,0,0 

410 DATA 213, 140,216,138, 220, 132, 221,128, 220, 124,215,112, 2711,108, 211,105, 214,104 
relG@y1O2, 216, 100, 212, 98, 209, 9B, O04, 96, 200, 97,196, 98,192, 98, 187,100, 187,104,193, 1 
Og ’ 1 ‘IS » 1 1+4, Oy QO ; 

420 DATA 187,111,152, 114, 194,115, 204,115, 210,107, 210,104, 208, 100, 212,100, 2713,101 


»212, 102, 210, 103,0,0 


POCKET PROGRAMS 


Sega 


430 DATA 185, 117,190,117,197, 122, 204,120, 208,118,0,0, 213, 134, 209, 138, 204, 137, 202 
91°337,0,0, 216, 128, 212,125, 208, 124, 204, 126, 204,132, 206,134, 204, 152, 202,193, 200, 13¢ 
200,135, 204, 195,0,0 

440 DATA 1593,110,186,110,0,06, 204, 115, 200,112,197,109,192,106,196,105,192,101,151 
¥103,1935,106,0,0,186,111,184,114,183, 114,184,115, 186,115,0,0 

450 DATA 140,122,140, 28,144, 28, 144, 24, 148, 28, 152, 28, 148, 20, 152,16,152, 12,144,168, 1 
44,12, 140,12,0,0 

460 DATA 156, 12, 156, =8, 160, 28, 160, 24, 164, 24, 164, 26, 168, 28,168, 1iy 156, 12,0,0, 160, 
16,160, 20,164, 20, 164, 16,160, 16,0,0 

470 DATA 172,12,172, 28,176, 28,176, 28, 176,18, 184, 28, 188, 28, 188, 12, 184, Lay 184, 20, 1 
76,12, 172,12,90,0 

480 DATA 192, 12,192, 28,196, 2B, 196, 24, 200, 28, 204, 28, 200, 20, 204, 16, 204, 12,136,186, 1 
G,12, 192, 12,0,0 

490 DATA 208, 12, 208, 28, 212, 28, 212, 24, 216, 24, 216, 28, 220, 28, 220, 12,208, 12,0,0, 212, 
16, 212,20, 216, 20, 216,16, 212%, 16,0,0 

Boo DATA idd, 36, id, 48, iS6, 468, rte? i44,S2, 144, 56, 160, 56, 160,44, 148,44, 148, 40,1 
60,40, 160, 36, 144, 36,0,0 

S190 DATA 164, 36,164, 56, 1 B80, 5G, 180, 3G, 164) BGy Oy Oy 168, 40, 168, SZ, 176, S2y 176,40, 168, 
4A0,0,0 

520 DATA 184, 36,184, 56, 188, S56, 188, 48, 196, 48, 196, 44, 188, 44, 188, 40, 200, 40, 200, 36, 1 
34,56, 0,0 

530 DATA 204, 36, 204,40, 212,40, 212, 56, 216, 56, 216, 40, 224,40, 224, 36, 204, S6y -1, -1 
540 PAINT C141,1359,12:FAINTC1IS7,139,1:FAINTC1739,159,1:FAINTC1I9S,139,1:FAINTC209,13 
Dy 1 

590 PAINT C145,357),1:PAINTC165,3579,1:FAINTC185, 379, 12FAINT (205,397), 1 

S60 FORT=17TO5S00: NEXTT: GOTOS 70 

570 CURSOF1S, 180O:PRINT" INSTRU Y or N" 

380 ANS=INKEEYS: IFANS=" "THENS80O 

S9O IF ANS="Y"THENBEEF:sGOTO 1550 

600 IF ANS="N"THENBEEF: GOTO 680 

G10 FORT=1T0100: NEXTT: GOTOS70 

G20 REM £4 EESEEERERERERERREAE REESE 


650 REM +€ STAR WAR C 1995 + 
G40 REM # BY * 
G50 REM # JAN JACOBSEN * 


660 REM + ADELAIDE USEFR’S CLUE ¥ 

G70 REM EK EEER ERASERS ELE ER ESE EES 

680 C= i12:MAG1 

690 GOSUB1I470: GOSUB11O0: GOSUBI2S90 

FOO A=wOsXX=1023 YY=BO: X1=02: Y1=0: PN=0O;: G=0; SO=0O; MU=16: SC=0O:MI=0 

71O VYi=O3 X1=INT CR NDC1)#1000450 

720 RN=INTCRNDO1)#15941 

730 SPRITEO, (XX,YYI,O, 4 

740 ONENGOTO7SO, 760, 750, 750, 760, 760, 750, 760, 750, 760, 750, 760, 750, 750, 770 
750 SPRITE1, (X1,V1),4,15:G=1:S0=6:GOTO 780 

760 SPRITE1, (X1,Y13,7,8:G=2:S0=7:GOTO 780 

770 SERITEL, (X1,Y1)9,12,10:G6=3: S0=10 

780 INS=INKEY$: IF IN¢S=""“THENGEO 

790 IN=ASCCINS) 

800 IFIN$="" "THENSOUNDS,1,15:GOTO 330:GOTO 780 

810 TF IN=29ANDX X21 7THENX X=X X-20 

820 IF IN=SOANDYY > 1LSTHENYY=YY-20 

BGO IF IN=SLANDYY=< 145 THENYY=VY4+20 

840 IFIN=28AND XxX<172THENX X=XX4+20 

85.0 Sa er ee 

G60 X2=INTCRNDCL43 

70 IF X2=OTHENX 1= ae 18) 

BBQ IF X2=1THENX1=X1-SO 

B90 YL=¥1+S0 

900 IFMI s=1LOTHEND9O 

910 IF X12=1620RX12=160FY1>=160THENMI=MI +1: BLINE C40, 160)2-€C70,1903,1,BF:CURSOF 45, 
182: COLORL Ls PRINTM]:GOTO 710 

ZO ONGGOTO7S0, 760, 770 

YOO IF XX+B8e=Xil+4 AND XX+Be=X14+13S ANDYY+82=V1+4 AND YY+82=V14+13 THEN SPRITE1, ¢x1 
»Y13,16,6:G0TO 3So 

"940 SOUNDS, 1,0: GOTOB81O 

"950 SOUNDS, ©, 152: FORA=OTO8O: NEXT: SOUNDO: IFSO=6THENSC=SC+30: GOTOIB8O 

960 IF GSQO=7 THENSC=S04+80s GOTORBO 

9370 IF SO=10THENSC=S$C+2003 GOTOS8O 

IBO BL.INE Ci 75, 169)-Ci95, 1919, 1, BPs CURSOR 75, 180: COLOR1O: PFRINTSC: GOTO710 
390 CLG: SOUNDO: CURSOR3O, 9S:FPRINT "YOUR SCORE";SC: CURSOR 35, 70: COLOFIS:FRINT"GAME O 
WER 0" 

1600 LINE C2O, 10)—c2 240,55),6,8 

1010 CURSORS6, 20: COLORS: FRINTCHE#$¢1793"S TAR WARS " 


o7 
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1O20 FRINTCHRES ¢16) 

1030 LINE C1O, 170)~ C250, 190),6,B 

L640 COLOR 4+: CURGURZO, LG0:FRINT "EANRA Software (C1985 By Jan Jacobsen" 

1050 CURSORS2,130:FRINT"Da you want another game":COLOR7: CURSOR1I14, 145:FRINT' CY/ 
NO" 

1060 TFINKEY$="Y"THENGOSUB 1290: GOTO700O 

1070 JTFINKEY$="N" THEN] G46 

1080 GOTO1060 

1090 RESTOREL480O 

1100 SCREENS, 2: COLOR, 1,,1:CLS 

1110 LINE C20, 10)—-C240, 359,6,B 

1120 LINE CLO, 1/O)~ C250, 1590),6,8 

11:30 CURSORSEG, 2O:COLORS:FPRINTCHRS¢1793;"S TA rR WARS " 

1140 PRINTCHRS (C16) 

1150 GSPRITEO, (SO, 70),4,15 

1160 SPRITE, (50,100),7,8 

1170 SPRITES, (S0,150),12,10 

1180 CURSORSO, 78: COLORIS:FRINT"S C OU T 
1190 CURSORGO, LOB: COLOR7:FRINT'F A T FOL 2 80 FTS" 

1200 CURSORSB0O, 1S36:COLORLO:FRINT'F IT GH T E F&F &e 200 FTS" 

1210 COLORI4: CURSORZO, 180:FRINT "KANEA Software (C1985 By Jan Jacobsen” 

1220 RESTORE1 260: FORJ=17T0110: READE: SOUND1I,F, 14: SOUND2,F+1,14: SOUNDS, F #2, 14: FORDE 
=1 T0302: NEXTDE, J 

1250 FREADD 

1240 TFD=OTHENSOUNDO: CLS: RETURN 

L250 SOUNDO, RETURN 

1260 DATA 196,196,196,151, 3992, 392,175,165, 147, 262, S92, S92, 392, S49, S50, 2594, 262,39 
wy O92, G92, S49, S30, 349, 330, 349, 294, 294, 196, 196,196, 294, 294, L9G, S20, 220, 349, S50, 29 
4, 262, 262, S94, S30, 294, S20, 247,196, 1 9G, S20, S20, S49, GSO, S94, 262, S92, 294, 294, 392, 34 
wy 440, 440, 698 

L270 DATA 698,659,587, S23, 523, 587,659,587, 440, 454, S92, S92, 525, 466, 415, S92, 549, Sl 
Ly 294, S62, 39>. 784,196,196, 196, 262, 592. S92, 349, AS0, 294, S25, S92, S92, O92, 349, SSO, 29 


30 FTS" 


% 


1280 RETURN 

12°90 SCREENS, 2: COLOR, 1:CLS 

1500 FORF=0TO0150: X=INT CRNDC1)I #200): Y=INTCRNDC19#170)sE=INTCRNDC1)9#14)24+2:FSETCX,Y 

Jyh: NEXT 

1S10 CURSORI40, 180: COLORLO:FRINT' SCORE": CURSOF10, 180: COLOFR10:FRINT"MISS" 

1320 COLOREG: CURSOR215, S:FPRINTCHRS¢(1795" S " 

1330 COLORIS: CURSORZIS, 25:FRINT" T " 

1340 COLOR4: CURSORZ15,45:FRINT" A " 

13350 COLOFR7: CURSORSIS,65:FPRINT' F& " 

1360 COLOR14: CURSORZ15, 1O5:FRINT" W " 

1370 COLORLO: CURSORS1I5, 125:FRINT" A" 

1380 COLORE: CURSORZ15,145:FPRINT' F " 

1390 FRINTCHRS (16) 

1400 FORCT=1TOSOSTEF 1 

1410 CIRCLE CSS, 259,C1I,11 

1420 NEXTCI 

1450 LINE C215,0)-(245,155),4,6 

L440 LINE C210, 0)~-C250,155),4,B 

1450 PAINT C211, 1),42PAINT C246,19,4 

1460 RETURN 

1470 RESTORELSOO 

1490 FORA=OTO19: READRES: FATTERNS#A, FES: NEXT: RETURN 

14390 GOTO1480 

L500 DATAFOFOCOCLOOOLOOLS, 1LS000100C 1LCOFOFO, OF OF OSB300B000AB, ABOOBOOOBSOSOF OF 

1510 DATABOCOEGALESASE79E, IFE7TALEQAQEOCOBO, O1L03S0785C7CSE779, F3E7B50705070301 

L520 DATAQOQOOLOSLESAS7BAE7, OLO0000000000000, OOB0407 85CEASDE7 » B000000000000000 

15350 DATAOOOOOOOOOO2ZO50B9, 47A77F AS449904035, COOOOOOOOOO40A91, EZESFECS229920C0 

1540 DATAS+3A30B81CLESFSF7F,FF7F7F SF SF 1DS800, OB1BSA7OF ZEIF BFE, F FFEF SECCE829008 

L530 SCREEN 1,1:ClLS:FPRINT "STAR WARS" 

1560 FRINT'You are a member of the’ FIGHTER SQUAD’ 

1570 FRINT "You are in your Fighter reday to blow up the EMPIRE Fighter" 

1530 PRINT "The Fighter mave randomly in a down direction and are petty hard t 

moomatch. 

1S9O PRINT "IF you let more than ten EMPIRE Fighter get away,you’ll lose y 

mu pub. 

1600 PRINT "Se hurry up! Jump antso your space ship using the curser key mavements 
CUP » down,ytleft and right),and speed ta it! 

1610 FORTs17TO 1500:NEXTT:PEINT sFPRINT "Press any key to continue" 

L620 TN@=TNEE YS: TF IN@=" " THEN E20 

1630 GOTO Go 

L640 SEREEN L,lrCho:rPRINT "BYE": STOF 
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FREQUENCY 
HISTOGRAM 


This business/education program 
plots a frequency histogram of a 
set of data after calculating the 
maximum and minimum data 
elements and determining the 
appropriate ‘rounded’ values and 
a suitable class interval. 

It gives the user the option of 
saving the histogram to a Mac- 
paint document, which may then 
be enhanced using Macpaint 
tools before being pasted into a 
Macwrite document. You can run 
an immediate printout of the 
histogram by pressing SHIFT 
CLOVER 4 (note the Macpascal 
drawing window can’t be saved 
directly to a Macpaint document 
using SHIFT CLOVER 3). 

Philip Cookson, 
Northcote, Vic 


program Frequency_Histogram (input, output); 


( Author : Mr. Philip Cookson Date : 10th September, 1985 ) 
{ This program reads a set of data and produces a frequency histogram ) 
( of the data. It automatically calculates ‘neat’ class intervals for the ) 
( histogram and sorts the data into the appropriate class intervals. The } — 
( histogram is then displayed in the drawing window. ) 


const | 
maxarraylength = 200; (maximum length of the data array) 
maxnclass = 11; (the maximum number of class intervals that can be generated) 


type 
data = array[|..maxarraylength] of real; 
freq = array 1..maxnclass] of real; 


var 
1: integer; 
xdata : data; 
xfreq : freq; 
xmin, xmax, classwidth : real; 
nclass, ndata : integer; 
response : char; 
title, filetitle : string; 
SaveTextRect : Rect; 


function log!0 (x : real) : real; ( Evaluates the logarithm to base 10 of x } 
begin (log10) 
if x <0 then | 
writein( Invalid Argument’) 
else 
10g 10 := In(x) / In(10) 
end; (10910) 


procedure InitTextWindow; 

var 
TextRect : Rect; 

begin (InitTextWindow) 
SetRect(TextRect, 0, 20, 525, 340); 
SetTextRect(TextRect); 
ShowText 

end; (InitText Window) 


procedure ReadTitle (var title : string); 
(Reads Histogram Title from the input file) 
begin (ReadTitle) 
writeCEnter a title for the histogram : ‘); 
readin(title); 
writeln; 
end; (ReadTitle} 


( Initialize Text Window } 
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procedure ReadData (var x : data; 
var n: integer); 
(Reads data from the input file interactively. Note the use of the boolean ) 
(variables and the input pointer, to overcome Pascal's interactive input } 
(limitations. } 
var 
lineread, fileread : boolean; 
begin (ReadData) 
nN := 0; 
writelnCEnter the data (Enter Q to terminate data entry)’); 
fileread := false; 
repeat 
lineread := false; 
repeat 
write(x[',n+ 1:1, ‘] =‘); 
if eoln then 
lineread := true 
else if (input® = ‘Q’) or (input* = ‘q’) then 
begin 
fileread := true; 
lineread := true 
end 
else 
begin 
n:=n+ I; 
readin(x[n}) 
end 
until lineread or (n = maxarraylength) 
until fileread; 
readin; 
writeln 
end; (ReadData) 


procedure FindMaxandMin (var x : data; 
nN: integer; 
var xmax, xmin : real); 
{ Determines the maximum and minimum of the input data array ) 
var 
1: integer; 
begin (F indMaxandMin) 
xmin := x{1]; 
xmax := x{1]; 
for 1 := 2 ton do 
begin 
if x[i] > xmax then 
xmax := x[t]; 
if x[i} < xmin then 
xmin := x(t] 
end; 
end; (F indMaxandMin) 
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procedure DetermineClassintervals (var xmax, xmin : real; 

var nclass : integer; 

var classwidth : real); 
( An algorithm to determine ‘neat’ class intervals for the frequency } 
( histogram. It returns neatly rounded values for ‘xmin’ and ‘xmax’, } 
( and computes appropriate values for ‘nclass’ and ‘classwidth’. } 


const 
epsilon = 1.0e-7; 
var 
newxmin, newxmax : real; 
range : real; 
i, iclass, jclass, iorder : integer; 
function power (x: real: 
a: integer) : real; 
( determines the value of ' x raised to the power a‘) 
( for integer values fo a ) 
var 
{: integer; 
product : real; 
begin (power) 
if x = 0 then 
power := 0 
else 
begin 
product := |; 
if a> 0 then 
for i:= | toa do 
product := product * x 
else if a<0 then 
for i:= | toado 
product := product / x; 
power := product 
end 
end; (power) 


function convert (i: integer) : integer; 
( Used to determine the appropriate number of class intervals } 
begin (convert) 
case ij of 
1: 
convert := |; 
10: 
convert := 10; 
2.5% 
convert := 5; 
5,6: 
convert := 6; 
4,8: 
convert := 8; 
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a 
convert := 7: 

Q: 

convert := 9 
end 

end; (convert) 


begin (DetermineClassintervals) 
range := xmax - xmin; 
if (range © 0) then 
begin 
iorder := round(1og1O(range)); 
iclass := round(+0.5 - epsilon + range / power(10, iorder)); 
jclass := convert(iclass); 
Classwidth := iclass * power(10, iorder) / jclass; 
while range <= classwidth do 
classwidth := classwidth / 10; 
newxmin := round(-0.5 + epsilon + xmin / classwidth) * classwidth; 
newxmax := round(+0.5 - epsilon + xmax / classwidth) * classwidth; 
if xmax = newxmax then 
newxmax := newxmax + Classwidth; 
while xmin >= (newxmin + classwidth - epsilon) do 
newxmin := newxmin + classwidth; 
while xmax < (newxmax - classwidth) do 
newxmax := newxmax - classwidth; 
xmax := newxmax; 
xmin := newxmin; 
nclass := round((xmax - xmin) / classwidth) 
end 
else 
begin 
nclass := 1; 
classwidth := epsilon 
end 
end; (DetermineClassintervals} 


procedure SortintoClassintervals (var x : data; 
ndata : integer; 
var xfreq : freq; 
xmax, xmin : real; 
Classwidth : real); 

( Sorts the data into the appropriate class intervals. Note that the } 

( data does not have to be ordered in any way. ) 

var | 
1, kK: integer; 


begin (SortintoClassintervals) 
for i := | to maxnclass do 
xfreq{i] := 0; 
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for {:= | to ndata do 
begin 
k := 1 + trunc(abs(x{i] - xmin) / classwidth); 
xfrea{k) := xfreq{k] + | 
end 
| end; (SortintoClassintervals) 


procedure PercentageFrequency (var xfreq : freq; 
ndata : integer); 
var 
1: integer; 
| begin (PercentageFrequency) 
for i := 1 to maxnclass do 
xfreqli] := xfreq{i] * 100 / ndata; 
end; (PercentageFrequency) 


procedure InitDrawingWindow; 

( Initialize Drawing Window ) 
var 

DrawRect : Rect; 

begin (initDrawingWindow) 
SetRect(DrawRect, 0, 0, 532, 362); 
SetDrawingRect(DrawRect); 
ShowDrawing 

end; (initDrawingwindow) 


procedure DrawHistogram (frequency : freq; 
nclasses : integer; 
mindata, classwidth : real; 
title : string); 
const 


Ftop = 60; ( coordinates for Histogram Frame ) 
Foottom = 300; 

Fleft = 35; 

Fright = 475; 


var 
Frame, Bar : Rect; 
1, width, Bleft, spacing, ndp : integer; 


function iscale (x : real) : integer; 
begin [iscale) : 
iscale := Foottom - round((Fbottom - Ftop) * x / 100) 
end; (iscale) 
begin (DrawHistogram) 
InitDraw ingWindow; 
TextSize( 12); 
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TextFace({bold)); 
MoveTo(Fleft + round(((Fright - Fleft) - 8 * length(title)) / 2), Ftop - 20); 
DrawString(title); 
FextSize(9); 
TextFace([]}); 
width := round((Fright - Fleft) / nclasses); 
SetRect(Frame, Fleft, Ftop, Fright, Fbottom); 
for i := | to nclasses do 
begin 
Bleft := Fleft + (i - 1) * width; 
SetRect(Bar, Bleft, iscale(frequencylt]), Bleft + width, Fbottom); 
FillRect(Bar, gray); 
MoveTo(Bleft, Fbottom); 
LineTo(Bleft, Fbottom + 5): 
FrameRect(Bar); 
end; 
MoveTo(Fright, Fbottom); 
LineTo(Fright, Fbottom + 5); 
FrameRect(Frame); 
for i:=0 to 10 do 
begin (Label Vertical Axis) 
spacing := round(i * 10 * (Fbottom - Ftop) / 100); 
MoveTo(Fleft - 30, Fbottom + 3 - spacing); 
WriteDraw(i * 10: 3); 
MoveTo(Fleft - 5, Fbottom - spacing); 
LineTo(Fleft, Fbottom - spacing); 
end; 
ndp := round(-log!O(classwidth)); 
if ndo > 8 then 
ndp := 8; 
if ndp <= 0 then 
ndp := I; 
for i := 0 to nclasses do 
begin (Label Horizontal Axis) 
MoveTo(Fleft - 25 + width * i, Fbottom + 20); 
WriteDraw(mindata + i * classwidth : 8 : ndp); 
end; 
end; (DrawHistogram) 


begin (Main program body) 
GetTextRect(SaveTextRect); 
InitText Window; 
ReadTitle(title); 
ReadData(xdata, ndata); 
FindMaxandMin(xdata, ndata, xmax, xmin); 
DetermineClassintervals(xmax, xmin, nclass, classwidth); 
SortintoClassintervals(xdata, ndata, xfreq, xmax, xmin, classwidth); 
PercentageFrequency(xfreq, ndata); 
write(’Do you wish to save the Histogram to a MacPaint file [Y/N]? ‘); 
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read(response); 

if (response = ‘Y') or (response = ‘y’) then 
filetitie := NewFileName(‘Save drawing to :'); 

InitDrawingWindow; 

DrawHistogram(xfreq, nclass, xmin, classwidth, title); 

if (response = ‘Y') or (response = ‘y’) then 
SaveDrawing(filetitle); 

SetTextRect(SaveTextRect); 

end. (Main program body) 


Semple Output of the HISTOGRAM program 


Percentage frequency 


£xamination Reswsts 


NOTES: 
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YAHTZEE 
This is a VZ200 version for the 
dice game Yahtzee, designed for 
an unlimited number of players. 
Each player throws his or her 
dice up to three times each turn. 
After the first and second throws 
you can hold any dice you wish to 
keep, re-throwing the balance. Af- 
ter the third throw you must enter 
your score in the table provided. 
Once a score has been re- 
corded for a particular category, 
that category can’t be used again. 
The game ends after 13 rounds. 
Because of the limitations of 
the printer used to produce the 
listing it’s wise to include the 
graphics [shift Js] in lines 2020 
and 2050. The sections under- 
lined should be inserted in in- 
verse text. 
The program occupies 5.9 
Kbytes of memory. 


lan Thompson, 
Collaroy Plateau, NSW 


Main Variable Used 


NS( ) Player's name 

SIS() Titles ot category 

S2S( ) Description of category 

SCS( ) Update score for each category 
DF( ) Spots on dice 

SC( ) Score 

ND( ) Random number for dice 

NP Number of players 


IP User update of scoresheet 
TURN - Turn number 


Main Routines 


0- 46 Title Alb ss 
100 Initialises screen background 
Clears memory for variables 
130 Input players’ names 
140 Initialises variables 
160-170 Input players names 
165 Limits player's name to 11 characters 
180-190 Set number of player turns per number of 
players 
210 Random number generator for dice throw 
290-320 Print score table 
330-420 User update of score 
470-570 Updates total score 
600-650 Displays final score and placings 
1000-1120 Data statements for score table 
1130-1160 Data statements for spots on dice 
2020-2050 Displays dice 
9000-20040 User update of score subroutine 


21000-22140 
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” HEHEHE TE TE TE FE HEHE TEE HEE FETE TE TE EE EEE EEE EE 
‘*® VZ-200 YAHTZEE * 
‘%*# IAN THOMFSON - COLLAROY +* 
SEE IESE HE TEE HE HEE IE HE IE SE HE SE HE HEE HEE EE HE EE EE 


CLS:SOUND 25,6:COLOR,O 
FOR X=1 TO 22:FOKE 28671+X,204:FO0KE 29151+ 


28672,174: FORE 28702,173:FORE 29152, 


sFORE 29182,167 


7 NEXT X 


6 FOR N=28704 TO 


27120 STEP 32 


9 FOKE N,202 


10 


100 
120 
1.30 
135 


140 


(6 


NEXT N 
FOR 0=28735 TO 279151 STEF 32 
POKE 0,197 

NEXT O 

PRINT@106," YAHTZEE " 

A¢="" IAN A. THOMPSON " 


B$="COLLAROY FLATEAU" 
FOR N=1 TO LEN(A#) 
PRINT@221 RIGHTS (A¥,N) ¢ 
PRINT@263, RIGHTS (BE ,N); 
NEXT 

FOR I=1 TO 5SO0O:NEXTI 
PRINT@454, “INSTRUCTIONS 
IF INKEY$<>"" THEN 38 
At=INKEYS 
IF A¢="N" 
IF Aag<c>"y" 
SOUND20, 1 
GOSUB 21000: ‘INSTRUCTIONS 

FOKE 30744,0:COLOR 5,0:CLEAR 1000 

R=RND (0) 

CLS:FRINT@126,"NO. OF FLAYERS":: INPUT NF 
SOUND 31,1 

DIM SC#(12,NP) ,S1#(1%) ,S2# (12) ,N# (NF) {DF 


CY/NO PF" 


THEN SOUND20,1:G0TO100 
THEN 40 


96) ,SC (NF) , YF (NF) 


145 GOSUB 1000 

150 FOR I=1 TO NF | 

160 CLS:FRINT@128,"PLAYER #":I::INFUT"’S NAM 
E"sN¢(1) 

162 SOUND 71,1 

165 IF LEN(N#(I)) 211 THEN SOUND 20,1;:10,1:60 


TO 


170 
180 
190 
210 
220 
230 
240 
200 
260 
270 
280 
290 
S00 
310 
22Q 
320 
240 IF 
245 IF 
200 LF 
260 TF 
S70 IF 
280 IF 
290 IF 
400 Te 


420 TF 


160 

NEXT 

FOR TURN = 1 TO 13 

FOR PL=1 TO NF 

FOR R=1 TO S:ND(R)=RND (4) s NEXT 

GOSUB 2000 

GOSUB 3000 

PRINT@416, "REMEMBER THESE, THEN" 
PRINT"HIT ANY FEY TO CONTINUE": At=INKEY? 
AZ=INEEVS: IF A#="" THEN 260 

FOR I=1 TO 6:N(T)=0: NEXT 

FOR I=1 TQ StN(ND(I)) =NCNDCI)) +12 NEKT 
CLS:PRINT"CHOOSE A CATEGORY, "3 N#(FL) 
FOR T=1 TO 12:FRINTUSING"##) "sI; 
PRINTS1%#¢(1)3;S52¢C1) 3;SC#(I,FL) 

NEXT 

FRINT: INFUT"WHICH Ci-it]"; IF 

IF 1 OR [F212 THEN 296 

IF=12 THEN 12000 

SCF CIF.,FPLIGS"" THEN 156006 

IF=|7 THEN SC#CIF,PL)=STRECIFRNCIFD 
IF=7 GR IF=8 THEN 7000 

IF=9 THEN 9000 

IF=10 THEN 10000 

TP=1t THEN T1Toae 


F=12 THEN 
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450 NEXT FL:NEXT TURN ND YN#<>"M" THENZ060 
440 FOR FL=1 TO NF:IFOR I=1 TO 12 3072 IF YN$="Y" THEN SOUND 20,1 
460 NEXT 3074 IF YN¢="N" THEN SOUND 16,1 
470 FOR I=1 TO 6 3076 IF YN#="S" THEN SOUND 15,1 
480 SC(FL)=SC (FPL) +VAL (SC#iI,FPL)) sNEXT 3078 IF YN#="M" THEN SOUND 20,23;10,1 
490 IF SC(FL) >62 THEN SC(FPL)=SC (PL) +4235 2080 IF YN€<2"S" THEN S130 
S00 FOR I=7 TO 13 3090 CLS:FRINT TAB(S) sN#(PL):"°S SCORES" 
510 SCC(FPLI=SC (PL) +VAL (SC#(ISFLD) 3100 FORI=1TO13:FRINTUSING '##] "Is 
S20 NEXT:NEXT . 3105 PRINT S1#(1)3S2#(1)sSC#(1I,PL) 
Sz0 FOR I=1 TQ NF-i 3110 NEXT:FRINT"“HIT ANY EKEY TO RETURN: ":A¢=I 
S540 H(=0:FOR J=1 TC NF NEEYS 
S550 IF SCtiJ) 2HI THEN HI=ST(J):F= J 3120 AS=INKEYS: IF AS=""" THEN 3120 ELSE GOSUB 
S60 NEXT 2000:GOTO 3020 
570 D=SC¢1):SC(1I) =SC(F):SC+FI =D 3170 PRINT@F," - 
S8C D#=N#( I} 2N# (DI) =NF iP Ne CRs HDF 3140 IF YN#="M" THEN 2010 
565 NEXT 3150 IF YN#="Y" THEN RR(J)=1 
590 SOUND 20.1:SQGUND 10,1:SGUND 20.1 31460 NEXT 
600 CLO:FRINT"AND THE FLACINGS AFE"s 2170 FOR I=1 TO S:IF RR(I)=1 THEN ND(I)=RND( 
620 FRINT:FRINT:FOR I=1 TQ NF 6) sF=0 
620 PRINTUSING "##"s 1s 3180 NEXT: IF F THEN K=2 
640 FRINT’] "Ent (1): TAB(C25)35CC1) 2190 GOSUB 2000 
650 NEXT 3200 NEXT 
660 FRINT@480,"A@NOTHER GAME (Y/N) ?"s 3210 RETURN 
670 GOSUB 20000 7000 FOR I=1 TO 6: IFN(I)>IP-5S THEN 7030 
680 IF YN#="Y" THEN LIN 7010 NEXT | 
490 CLO:FRINT@IGZ. Tish bor ihb Gate is VE 7020 GOTO 16000 
“sEND 7030 SC=0 
1¢00 ‘DATA STATEMENTS 7040 FOR I=1 TO 5:SC=SC+ND(I) sNEXT 
1040 FOR i=. TO 15 7050 SC#(IP,PL)=STR$ (SC) 
1050 READ S1#(1),S2# (1) sNEXT 7040 GOTO 4350 
1060 DATA"ACES",". CSUM OF 1°S7 -","TwOoSs"," 9000 FOR I=1 TO 6 
. (CSUM OF 2°S] -" 9010 IF N(I)>2 THEN N(I)=N(I)—-3:GOTO 9040 
1070 DATA" HREES",".CSUM OF 3°S] -—","EQURS", 9020 NEXT 
", CSUM OF 4°S] -" 9030 GOTO 16000 
1080 DATA"EIVES",". CSUM OF 5’S] -","SIXES", 9040 FOR I=1 TO 6 
". €SUM OF 6’S] —-" 9050 IF N(I)>1 THEN 9080 
1090 DATA"S GF A EIND",". (CSUM] -—","4 OF A 7060 NEXT 
KIND" |". CSUM] —" 9070 GOTO 146000 
1160 DATA"FULL HQUSE",". C25] -","SM. ST 7080 SC#(9,FL)=" 25" 
AIGHT".". “Lzol —" . Sh stk 9090 GOTO 430 
1110 DATA"LGE. STRAIGHT",". (€40] -", "YAHTZEE 9090 GOTO 430 
EPL C50) -" 10000 FOR I=1 TO 3:F=1:FOR J=I TO I+2 
1120 DATA"CHANCE",". cSumM] —-" 10010 IF N(J)=0 THEN F=0 
11350 FOR I=1 TO 6:FOR J=1 TO I 10020 NEXT 
1140 READ DF(I,J)sNEXT:NEXT 10030 IF F THEN 10060 
1150 DATA 66,23,99,1,66,131,33,25,97,99 10040 NEXT 
1160 DATA 1,3,66,129,131,1,27,65,67,129,121 10050 GOTO 16000 
1190 RETURN 10060 SC#(10,PL)=" 30" 
2000 CLS:PRINT N#(FL)3"'S ROLL" 10070 GOTO 430 
2010 FOR R=96 TO 224 STEF 32:FOR S=2 TO 2746 S 11000 FOR I=1 TO 2:F=1:FOR J=I TO I+4 
TEP & | 11010 IF N(J)=0 THEN F=0 
2015 COLOR 5 11020 NEXT 
2020 FRINT@R+S, " "s “THREE SHIFT J’‘S 11030 IF F THEN 11060 
2030 NEXT:NEXT 11040 NEXT 
2040 FOR D=1 TO S:FOR N=1 TO ND(D) 11050 GOTO 16000 
2045 COLOR 2 11060 SC$(11,PL)=" 40" 
2050 PRINT@91+D#6+DF (ND(D) ,N)," “s “QNE SHIFT 11070 GOTO 420 
J 12000 FOR I=1 TO 6 
2060 NEXT:NEXT 12010 IF N(I)=5 THEN 12040 
2070 RETURN 12020 NEXT 
3000 FOR K=1 TO 2:F=1 12030 GOTO 16000 
3010 FOR J=1 TQ 5 12040 SC#(12,PL)=" 50" 
3020 P=H=252+I*#6:RR (J) =O 12050 IF YFC(PL) THEN SC#(12,PL) =STR$(VAL (SCE 
3020 PRINT@F, "oo" (12,PL))+100) 
S025 FRINTs PRINT 12060 YF(PL)=1 
3040 FPRINT"RERGOLL THIS ONE CY/NI?" 12070 GOTO 430 
2050 FRINT"CS FOR SCOREROARDI":FRINT"CM FOR 13000 SC=0:FOR I=1 TO S 
MISTAKEI": YN#=INKEY? 13010 SC=SC+ND(I) :NEXT 
S060 YNF=INKEYS 13020 SC#(13,PL)=STR# (SC) 
ZO70 IF YN#<>"¥" AND YN#<>"N" AND YN#2>"S" A 13030 GOTG 4350 
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15000 
15010 
15020 
15030 
15040 
16000 
16010 
16020 
16025 
O 290 
16030 


SOUND 15,1:CLS 
PRINT@128, "YOU'VE ALREADY DONE" 
PRINT"THE "sSi#(IP)s" "sN#(PL) 

FOR I=1 TO 2000:NEXT 

GOTO 290 

SOUND 15,1:CLS 

PRINT@128, "YOU'RE NOT ELIGIBLE FOR" 
PRINT"A ":Si$(IP)3" "“sN#(PL) 

IF IP=12 AND YF(FL) THEN SOUND 0,8:GOT 


PRINT: PRINT: PRINT"DO YOU WANT IT ANYWA 


Y CY/NI?"s 


16040 
16050 
16060 
16070 
16080 
20000 
20010 
20020 
20030 
10,1 

20040 
21000 
21010 
YER” 

21020 

9 

21030 
21040 


ee 
21050 


3 
21060 


21070 


21080 
+ 

21090 
21100 
21110 
21120 
21130 
21140 
21150 
21152 
21154 
21156 
21160 
21170 
21172 
21174 
21176 
21178 
21180 
21200 
21210 
Ss." 

21220 
21230 
21240 
21250 
21260 
22100 
22110 
22120 
22130 
22140 


GOSUB 20000 

IF YN#="N" THEN 290 

SC#(IP,PLI=" 0” 

IF IF=12 THEN YF (PL) =1 

GOTO 420 

YN#=INKEYS 

YN#=INKEY#: IF YN#="" THEN 20010 

IF YN#<>"Y" AND YN#<2"N" THEN 20000 
IF YN#="Y" THEN SOUND 20,1 ELSE SOUND 


RETURN 
CLS: PRINT” INSTRUCTIONS" 
PRINT:PRINT"IN THIS DICE GAME EACH FLA 


PRINT"CAN THROW UF TO THREE TIMES EACH 


PRINT" TURN. AFTER THE FIRST THROW, HE” 
PRINT"CAN SET ASIDE ANY DICE HE WISHES 


PRINT"TO KEEF,AND RETHROW THE BALANCE. 


PRINT"HE CAN DO THE SAME AFTER THE" 
PRINT"SECOND AND THIRD THROWS. HE CAN, 


PRINT"OF COURSE, STOF BEFORE THE THIRD 


PRINT" THROW IF HE WISHES. " 
PRINT"ONCE THE FLAYER HAS DECIDED TO" 
PRINT"STOP, HE MUST DECIDE INTO WHICH" 
PRINT"CATEGORY TO ENTER HIS SCORE. " 
GOSUB 22100 

DIM S1#(13) ,S2#(12%) 

FOR I=1 TO 12 

READ S1#(I),S2#(1):NEXT 

CLS 

PRINT 

FOR I=1 TO 123 

PRINT S12(1):3:S22C(1):NEXT 
PRINT@300,"{SUM OF HOUSE - 
PRINT@324,"C1,2,3,4,5,] —" 
PRINT@366,"(2,2,4,5,6,] —" 
PRINT@294,"CFIVE OF A KIND] -" 
PRINT@427,"CANY FIVE DICE] -" 

GOSUB 22100 

CLS:PRINT"THE GAME ENDS AFTER 12 ROUND 


FRINT"ONCE A SCORE HAS FEEN RECORDED" 
FRINT"FOR A PARTICULAR CATEGORY, THAT" 
FRINT"CATEGORY CAN’T BE USED AGAIN. * 
GOSUB 22100 

RETURN 

PRINT@485,"PRESS <C> TO CONTINUE”; 

IF INKEY$<2"C" THEN 22100 

IF INKEY$="" THEN 22100 

IF INKEY$="C" THEN 22120 

SOUND 30,1:RETURN 
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SORTING OUT 
THE SORTS 


The prograrn listed with this arti- 
cle was developed to test the 
speed and efficiency of four sort- 
ing algorithms: Insertion, Shell, 
Quick and Selection. The program 
will probably run as is in most 


_ BASICs. 


What’s usually required of a 
sort is to put a list of names into 
alphabetical order, but the aver- 
age textbook seems to present 
sorts for numbers with no indica- 
tion of the best choice for a par- 
ticular task. 

The choice of sorting algor- 
ithms is broad: more than three 
dozen are known, spread across 
some hundred texts. The most 
popularly presented, and the 
slowest if list size is more than 11, 
is the bubble sort. 

Fortunately, the choice can be 
narrowed down to short algor- 
ithms which work in RAM only 
and are not bubbly sorts in dis- 
guise! 


The program 

The first program line, line 30, 
asks for the size of the array to be 
generated and sorted. Start witha 
choice of 10 to check the sorts are 
working as expected. 

Lines 70-130 generate the re- 
quired number of capital letters 
and place them in the array. The 
variable CD is set at 64, one less 
than the ASCII code for ‘A’. A 
number is generated in line 90 
and added to CD. If this number is 
acceptable, the character it repre- 
sents is placed in array CHS. If 
not, Cis decremented by one and 
the process is repeated. The loop 
runs until BN (big number!) let- 
ters are placed in the array. Line 
130 prints out the unsorted list 
and could be omitted from the 
program. 

The straight Insertion sort and 
the Shell (insertion algorithm) 
sort are particularly useful. 

The Selection sort is always the 
slowest, since the same number 
of compares and swaps is made if 
the list is random, or if only one 
element is out of order. The Quick 
sort isn’t much better if only a few 


Most BASICs 


elements are out of order. If the 
list is random with more than 500 
elements Quick sort is useful, but 
only if there is no shortage of 
RAM to store the two extra arrays 
the sort requires. 

The Shell sort is best for a ran- 
dom list, and the Insertion sort is 


best when only a few items in the. 


list are out of order. For most 
work the Insertion sort will do. For 
instance, a mailing list is only tru- 
ly random when first typed in, and 
thereafter only insertions need to 
be sorted. The Insertion sort is 
simplest to understand: search 
forward for an out-of-order ele- 
ment, then search back through 
the list and insert the element in 
its proper place. The Shell sort is 
a little more complicated: ele- 
ments compared are a specified 
distance apart, which decreases 
until only adjacent elements are 
compared. 


Mr Jankowski, 
Timaru, New Zealand 
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10 REM SORT MEASURE by LZ Jankowski 
15 REM COPYRIGHT July 1985 


| 
SO CLS: INPUT "# of items in list "3 BN: CLS 


40 DIM CH®(BN), A(BN), B(BN) 


SO 3: 
60 REM e=<>e==>* Create random list of letters~----- nr 
70 CLS: PRINT TAB( 20)"% Programming Kk": CO#64 


80 FOR C#=1i TO BNs CO=CO+10: IF CO#94 THEN CO=64 


8 X@®INTCLOXRND (1) )+C0 
3 IF X<65 OR X>90 THEN C=C-1i:s GOTO 120 
8 CHS (C) =CHRS (X) 
NEXT + CLS: PRINT "Random list is"s PRINT = PRINT 
FOR C#=1 TO BNs PRINT C=" CH®(C) SPCC 4)33 NEXT : PRINT « PRINT 
2 


REM ------------------- MENU-------------------------- === == 

PRINT : PRINT : PRINT : PRINT TAB( 15)"1> Insertion Sort" 

PRINT TAB( 15)"2> Shell Sort" 

PRINT TAB( 15)"3> Quick Sort": PRINT TAB(15)"4> Selection Sort 


PRINT +: INPUT "Choice "3 C 
IF C<1 OR C>4 THEN RUN 


2 

PRINT !'$(28)2 PRINT "& Sorting &": PRINT 3: PRINT 

ON C GOSUB 300, 400, 370, 730: GOSUB 350 

2 

REM ~----—- Now sort ’A* from bottom to top of list-<------- 
FOR C=1 TO 40: PRINT “-"g2 NEXT 

PRINT : PRINT "Sorting ’A’ fram bottom to top of list": PRINT 
GOSUB 500: GOSUB 350: GOSUB 400: GOSUB 350 

GOSUB 570: GOSUB 350: GOSUB 750: GOSUB 350 

PRINT : INPUT "RUN again "s3Q®:s IF LEFT$(Q$,1)=2"Y" THEN RUN 
END 

: 

REM -=--==-= Print sorted list & # of compares & swaps--~--- 
FOR C#1 TO BN: PRINT C "=" CH#(C) SPC( 4)58 NEXT 

PRINT : PRINT : PRINT "Compares "CM, "Swaps "S: PRINT 

CH (BN) #"A"s CM=O2 S=O: RETURN 

H 

REM Sse == Shell sort based on Insertion algorithm-~-------- 
T=(2° INT (LOG (BN) /LOG(2)))-1 

IZINT(I/2) 

IF I<i1 THEN 470 

FOR N=1 TO I: FOR C#N+I TO BN STEP I: M#C: C#=2CHS (M) 
CM=CM+i: IF CH®(M-I)<2C% THEN 460 

CHS (M) =CHS (M-I): S=Stize M=M—-I:s IF M>I THEN 440 

CHS (M)=C#: NEXT Cs NEXT Ns GOTO 410 

PRINT "SHELL SORT": RETURN 

2 

REM SSs=<SSeR4e 3" Insertion: Sorts -<4-=<<994--58s<S8s—=<<— 
FOR Ne=2 TO BN: M=N: CS2CH (M) 

CM=CM+1: IF CH®(M-1)<#C% THEN 330 

S=S+1—3 CH®(M) =CH®(M—-1)3 M2M—-1is IF M>1 THEN S10 

CH®(M) =C$s NEXT 

PRINT "INSERTION SORT": RETURN 

REM -~--Quicksort best for very long, random lists-------- 
SP=ili A(L)w™1: BC1)=BN 

FItA(SP): SI=B(SP): SP#SP-1 

SF=FI: SS=SIs C$=CHS®(CINT((FI+S91) /2)) 

CM=CM+13 IF CHS(SF)+2C% THEN 620 

SF=SF+1 

GOTO 600 

CM=CM+1i: IF C8>#CH®(SS) THEN 650 

$8#SS-1: GOTO 630 

IF SF°SS THEN 670 

S*S+1: E*=CH®(SF): CHS(SF)*CH$(SS): CHS(SS)=E%:s SF=SF+i: SS=SS-1 
IF SF¢=SS THEN 600 

IF SF?=SI THEN 700 

SP=SP+1: AC(SP)=SF: B(SP) =SI 

SI=SS: IF FI<SI THEN 390 

IF SP>O THEN Seo 

PRINT “QUICKSORT": RETURN 

3 

REM ----Selection Sort, dreadful! CM=(N-1)4*N/2 Swaps#N-1-- 
FOR N=1 TO BN-1i:M=N: FOR C=N+1 TO BN: CM=CM+1s IFCHS (M) >CHS (C) THENM=C 
NEXT: S#S+i: C8=CH®(N): CHS (N) =CHS(M)s CH®(M)=C@: NEXT 
PRINT "SELECTION SORT": RETURN 
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SUPERMAIL — THE UNIVERSAL 
MAILING LIST MANAGER 


NEED TO PRINT mailing labels, 
envelopes or personalised mail 
from a mailing list? Supermail 
can solve your problems. There 
are versions of Supermail, written 
in Microsoft BASIC, for the IBM 
PC, NEC PC 8201 and Tandy Mod- 
el 100. With a few adaptations to 
line 261, 262 or 263, which control 
serial port syntax on the target 
machine, all machines using Mic- 
rosoft BASIC should be okay. 


Printers st 

Serial and parallel printers are 
supported, and the user chooses 
which to use as the program runs. 
This is achieved by avoiding the 
use Of LPRINT, nominating a 
numbered file to be the serial or 
parallel port, and printing to that 
file. Lines 261, 262 and 263 call for 


serial port parameters of 300. 


baud, 8-bit word length, one stop 

bit and no parity. To use printers 
}requiring other parameters for 
the serial port you'll have to mod- 
ify line 261, 262 or 263. 


Program Features ji 
'Supermail creates a Mailmerge- 


compatible database, and from it 
makes mailing labels, addresses 
envelopes and creates personal- 
ised bulk mail. Room is provided 
for additional routines to sort the 
database and to make reports. 


Database Structure 

The first field has a fixed length 
and is for the postcode. The re- 
maining fields, starting with ‘last- 
name’, are of variable length for 
most efficient use of memory in 


the Tandy 100 and NEC PC 8201. 


These two fields allow easy sort- 


ing by postcode into areas, or 


sorting into alphabetical order 
according to surname. Only se- 
quential files are used, due to the 


file limitations of the NEC and 


Tandy. 


Program Structure 


The program starts with initialisa- — 
tion routines and an opening © 


menu. Separate subroutines are 


‘used to add'names to the data- 


base, to print labels, envelopes 


and letters, and for error hand-— 
ling. As printed, the listing is for 
_an IBM PC. To use it on a NEC PC 


19 | RESO IR IG IOC A IGG KK 
26 ' * | | | Rae 
39 ' * *** superMAIL*** * 
4g ' * * 
51S SRR SRR a OCR ICR a a i a aE oe ok ak a 
69 ' 

79 ‘ copyright John Hepworth 

86 ' Haberfield, Australia, August 1984 
99 ' 

199 ' Individual use permitted. 

16o ' 

116 ' Not to be resold or used for 

126 ' commercial purposes 

13¢ ' 

146 ' 

159 CLEAR 190@0:MAXFILES=3 "maxfiles is 


needed by NEC & TANDY laphelds 


DIM NA$(3,8) 
address array 


"NA$ is the name and 


CLS: ER=19:'OF$="Printer chosen" 
ON ERROR GOTO 3579 
PRINT: PRINT: PRINT SPACE$(13); 


"EEX superMALL*¥**" 


PRINT: PRINT: PRINT SPACE$(8); 


8201 put a REM at the start of line 
261, and remove the ‘ from the 
start of line 262. For the Tandy 
100, add a REM to line 261, and 
remove the ‘ from line 263. 


File Buffers 

Line 150 has the statement 
MAXFILES=3. This is required for 
the NEC and Tandy to allocate file 
buffers for input and output. It 
isn’t required for the IBM but has 
no ill effect, since IBM PC BASIC 
allocates three buffers automati- 
cally and only sees the MAXFILES 
as an unused variable. 


Optional Routines 

On my NEC 8201, I took the sort 
routine from page 181 of the Tan- 
dy 100 manual, renumbered it, re- 
placed the END statement with a 
CLOSE:GOTO 570, and put it be- 
tween lines 5070 and 5995. IBM 
PC-DOS 2.00 (and later) has.a 
SORT filter that does this job very 
efficiently, and the space could be 


better used for a report genera- 


tion routine. 


Remarks Fields 
The ‘Add a name’ routine creates 


two remarks fields in the data-— 


base. The first of these allows 255 
characters of remarks. Line 1160 
creates the second remarks field 
as an empty field. If more than 


255 characters of remarks are re- 
quired, replace line 1160 with a 
routine similar to the one in line 
1150. None of the printing 
routines, as written, displays the 


~remarks. A report routine could 


include them, and they could be 
used for diverse purposes, such 
as showing which club members 
are overdue with annual mem- 
bership fees! 


Form Letters 

Form letters require pre- 
formatted text for the body of the 
letter, with a carriage return/ 
linefeed at the end of each line. 
PC-Write will create such files for 
IBM. For the Tandy or NEC, manu- 
al splitting of text into lines with 
the return key will be required. 
Files created by programs such as 
Wordstar in document mode in- 


clude all sorts of characters not in 


the normal ASCII sequence. Such 
files should be put through a 
stripper program to convert them 


to pure ASCII before using Super- 


mail. 
Supermail is easy to use and is 


fully menu driven. It is a simple 


program, but quite powerful and 
very useful. Even if you only use it 
to create a data file for Mail- 
merge, you'll quickly see its 
worth. 


"multipurpose mass mailer" 


21 
John Hepworth" 

220 
230 INPUT 
printer";0S$ 
240 
250 
239 

261 


IF N=l1 OR N=2 THEN OPEN 


PRINT: PRINT SPACE$(8); "Copyright 


FOR N=l1 TO 19$0@:NEXT N 
"<P>arallel or <S>erial 


N=INSTR("PpSs",0S$) 
IF N=@ THEN PRINT "Try again":GOTO 


"LPT1" FOR 


OUTPUT AS#3 ELSE OPEN 
"COM1:3,n,8,1" FOR OUTPUT AS#3 — 


"IBM version of line 269 
IF N=l OR N=2 THEN OPEN 
OUTPUT AS#3 ELSE OPEN 
FOR OUTPUT AS#3 


262 ' 


line 26¢@ 
263 ' 


line 269 
569 ' 
51¢ ' 
529 ' * 


IF N=] OR N=2 THEN OPEN 
OUTPUT AS#3 ELSE OPEN 
FOR OUTPUT AS#3 


"UPT:" FOR 
"COM: 3n81lx" 
"NEC version - 


"LPT:" FOR 
"COM: 38nle" 
‘'TANDY version - 


AK 2 ie ie 2 ak 2k ie fe 2 aie ice aie fe fe ye ae ok ie fe 2 i ee 2 2 ee ak ok 2c 


* 


Ua a ee ed 


(RS aa a cg a a EE MEO BE ENR LI CIP SI A EIEN NIE EET RT a OT LTE OTE I OE ETE TT I I AE ADEE IIT SENECA ETED 
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530 
540 
559 
56¢ 
57¢ 


58¢ 


590 
600 
61@ 
62¢ 


625 
636 
649 


656 


190¢ 
1619 
192¢ 
193 
1949 
195 
166@ 


197¢ 
1980 
1985 
16990 
1199 


111@ 
112¢ 


1136 


1149 


' x ** first menu ** * 
1 ox 2 
TGR IG OR a a a ok 2k ok a 2k 9 2k oka ok ok 
t 


CLS:PRINT: PRINT" 
alternative" 
PRINT"<A> Add a 
the file" 
PRINT"<L> Print 
PRINT"<E> Print 
PRINT"<B> Print 
PRINT"<Q> Quit, 
menu" 
PRINT" <O> 
INPUT CH$ 
ON INTC INSTR("AaL1EeBbQq0o",CH$)/2+.5) 
GOTO 1976,1570,2067G, 2579, 3630, 5903@ 
GOTO 579 


Select one 


name and address to 


labels" 
envelopes" 
bulk mail" 


and return to main 


Other option" 


AK 2K 3 2K OK 2 2 2K 2K 2k ok 2 kK 2k 2K OK ke ok 2K 2K 2K OK OK OK 2K KK OK 


q 
DET TTLCrCeCrTTrrrerrereer s £2 2 22 2 2 22 2: 
x x 
" * Adding a name to the file * 
' x * 
q 
| 


FILES: INPUT "TO WHICH FILE DO YOU 
WANT TO ADD NAMES": A4$ 

OPEN A4$ FOR APPEND AS #1 

FOR N= @ TO 8:A4$(N)="":NEXT N 
INPUT "Courtesy title <eg Mrs, Ms, 
Mr, Dr >";A4$(1) 

INPUT "First name(s) or initials "; 
A4$(2) 

INPUT "Last name ";A4$(3) 

INPUT "Street number and street 
name";A4$(4) 

INPUT "Town (or suburb) and 
state";A4$(5) 

INPUT 
"Postcode";A4$(6):PC=LEN(A4$(6)): 
IF PC<4 THEN A4$(6)=SPACE$(4-PC) 
+A4$(6) ELSE IF PC>4 THEN PRINT 
"POSTCODE TOO LONG":GOTO 114@ 
INPUT "Remarks"; A4$(7) 

A4$(8)="" 


FOR N=1 TO 8: 
CO=INSTRCA4$(N),","):IF CO>@ THEN 
MID$(A4$(X),CO,1)=" ":NEXT N 
PRINT #1, 


A4$(6)","A4$(3)","A4$(1)","A4$(2)", 
"A4$(04)","A4$(5)","A4$(7)","A4$(8) 
INPUT “add another name and 
address"; IP$ 

IF INSTR("YyNn",IP$)=@ GOTO 1199 
IF INSTR("Yy",IP$) THEN 1990 

CLOSE #1:GOTO 57¢ 


150@ 
151¢ 
152g 
1536 
1540 
155 
1560 
157@ 
158¢ 


159@ 
160 
161¢ 


1626 


163¢ 
164@ 


2k 2 3K KK 2K OK 2K 2 ie oie oc ok ok 2 2 ke ok 2k ok ok 2k aie 2k ok kk 6 eo OK Ok 


x XK 
label printing routine * 
2 x 


t 

i] 

i 

1 x 
t 
TGR RR IO AG aK 
' 


CLS:PRINT:PRINT"printing labels" 
INPUT "No of labels across sheet (l 
to 3)";LA:IF LA<1 OR LA>3 GOTO 158¢ 
INPUT "No of lines per label (3 or 
more)";LL:IF LL<3 GOTO 159@ 

INPUT "No columns of type across 
sheet";LS 

CLS:FILES: INPUT "Filename for names 


and addresses";NA$:OF$=NA$:OPEN NA$ 
FOR INPUT AS #1 


INPUT "HOW MANY COPIES OF EACH 
LABEL";CL 
CN=0 | 


CN=CN+l:I1$=INKEY$: IF I$=CHR$(27) 
THEN CLOSE #1:GOTO 570 ‘hit 
<escape> to abort print run and 
return to end. 
FOR N=1 TO LA 
FOR M=1 TO 8 
INPUT #1, NA$C(N,M) 
IF (EOF(1) AND N<LA) THEN 
GOTO 172¢ 
NEXT M 
NEXT N 
GOTO 1770 
FOR X=N+l1 TO LA 
FOR M=1 TO 8 
NA$(X,M)="" 
NEXT M 
NEXT X 
FOR X= 1 TO LA 
L$S=NA$(X,3)4" "4+NA$(X,4)4+ 
" "ENAS(X,2) 
PRINT L$ 
PRINT #3, SPACE$(5) 4+L$+ 
SPACE$(LS\LA -5-LEN(L$)); 
NEXT X 
PRINT #3," 
FOR X= 1 TO LA 
L$=NA$(X,5) 
PRINT #3, SPACE$(5) +L$+ 
SPACE$(LS\LA -5-LENC(L$) ); 
NEXT X 
PRINT #3,"" 
FOR X=1 TO LA 
L$=NA$(X,6)+" "4+NA$(X,1) 


PRINT #3, SPACE$(5) +L$+ 
SPACE$(LS\LA -5-LEN(L$)); 
NEXT X 
PRINT #3,"" 


FOR N= 1 TO LL-3:PRINT #3,"" :NEXT N 
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1949 
195¢ 
196¢ 


2060 
291¢ 
2020 
2036 
204 
2956 
2969 
2907 
2086 


2996 


2199 
2119 


2129 


213@ 
214¢ 
215¢ 


2169 
217¢ 
2189 
2199 
2209 


2219 
2220 


2230 
2246 
225 
250 
251¢ 
2520 
2539 
2546 
25590 
256¢G 
2570 
258@ 


2599 


2609 
2619 


aaa aeaaramacacaacaamaaaaacaammasaaaaaacacaasaaaaa ae 
73 


IF EOF(1) THEN GOTO 1969 

GOTO 1659 

IF CN<CL THEN CLOSE #1:OPEN NA$ FOR 
INPUT AS#1:GOTO 1646 ELSE CLOSE © 
#1:GOTO 579 

q 


STILT CLIOCL SSCS SLES ET TT TT LET eT S| 
1 * 
ms envelope printing routine * 
1 * 
' 


AE IK Fe ee ee 2 2 2K 2 2 2 2 2K 2 2K ak ae 2 ie 2 ok 2K 2k Ok OK Ok 
t 


PRINT: PRINT" printing envelopes" 
INPUT "Width of envelope in 
characters ";EW 
INPUT "Height of envelope in 
lines";EH 
ML=EW\3 
FILES: INPUT"Filename for names and 
addresses"; NA$:OF$=NA$:OPEN NA$ FOR 
INPUT AS #1 
PRINT"Drop in an envelope and hit 
<spacebar> to continue" 
I$=INKEY$:IF I$<>CHR$(32) GOTO 21394 
CLS 
FOR N=1 TO (EH\24+12):PRINT #3,"" 
sNEXT N ' 12 is number of line 
feeds to bring top of envelope in 
line with print head 
FOR M=1 TO 8 

INPUT#1,NA$(1,M) 
NEXT M 
PRINT NA$(1,2) 
PRINT #3, SPACE$(ML) ;NA$(1,3)4+" " 
+NA$(1,4)+" “"+NA$(1,2) 
PRINT #3, SPACE$(ML) ;NA$(1,5) 
PRINT #3, SPACE$(ML);NA$(1,6)+" " 
+NA$(1,1) 
FOR N=1 TO EH:PRINT #3, "":NEXT N 
IF EOF(1) THEN CLOSE #1:GOTO 579 
GOTO 2129 
' 


ETT TOTICLCOL SSS SS SESE LT TLE LS Le | 
1 * * 
ye letter printing routine * 
1 x * 
TG IO I III I Ik kok 30K 2K 6 ok 
t 

PRINT: PRINT" printing letters" 
FILES: INPUT "Filename for names and 
addresses":NA$: OF$=NA$:OPEN NA$ 
FOR INPUT AS #1 

FILES: INPUT "Filename for body 
text";BT$:OF$=BT$:OPEN BT$ FOR 
INPUT AS #2 | 
INPUT"No of blank lines above 
date";BL 

INPUT "Enter ‘today's date";DT$:IF 
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2612 
2615 
262¢ 
2639 
2649 
265@ 
2655 
2669 
267@ 
2680 
269¢ 
27909 
2719 
272G6 
273 
2749 
2759 


2769 


2770 


2789 


2799 


2869 
2819 


2829 


283G 
2849 
2850 
2860 
287G 


288 
289¢ 


2900 
3000 
391¢ 
3929 
3030 
3509 
351¢ 


BL<4 THEN SS$="";ST$="";GOTO 2620 
INPUT"Sender's Street No & Name"; 
SS$ 
INPUT"Sender's Town and 
Postcode";ST$ 
INPUT "Width of left margin";ML 
PG=1 
LC=@ 
FOR N=1 TO BL:PRINT #3, "": 
LC=LC+1:NEXT N 
PRINT #3,SPACE$(ML)+SS$: 
PRINT#3,SPACE$(ML )4+ST$:LC=LC+2 
PRINT #3, SPACE$(ML);DT$ 
FOR M=1 TO 8 

INPUT#1,NA$(1,M) 
NEXT M 
FOR N=1 TO 5:PRINT #3,"" 
LC=LC+1:NEXT N 
PRINT #3, SPACE$(ML);NA$(1,3)+" " 
+NA$(1,4)4+" "4+NA$(1,2):LC=LC+1 
PRINT #3, 
SPACE$(ML);NA$(1,5):LC=LC+4+1 
PRINT #3, SPACE$(ML);NA$(1,6)+ 
" "4NA$(1,1):LC=LC41 
FOR N=1 TO 3:PRINT #3,"" 
LC=LC+1:NEXT N 
PRINT #3, SPACE$(ML);"Dear "+ 
NA$(1,3)+ " "4+NA$(1,2)4",":LC=LC+1 
FOR N=1 TO 2:PRINT #3, 
>LC=LC+1:NEXT. N 
LINE INPUT #2,LI$ 
IF LI$=CHR$(128) THEN LI$="": 
GOSUB 286¢ 
IF LC>61 THEN GOSUB 286¢@ 
PRINT #3, SPACE$(ML)4+L1I$:LC=LC+1 
IF EOF(2) THEN FOR N=LC TO 65:PRINT 
#3,"":NEXT N:GOTO 2829 ELSE GOTO 
2779 
CLOSE #2:IF EOF(1) THEN CLOSE 
#1:GOTO 57@ ELSE OPEN BT$ FOR INPUT 
AS#2:GOTO 263¢ 


' *** pagination subroutine *** 


q 

FOR N=LC TO 65:PRINT #3,"" :NEXT N 
LC=$:FOR N=1 TO 5:PRINT #3,"" 
:LC=LC+1:NEXT N 

PG=PG+1:PRINT #3, 
SPACE$(ML+39) ; PG: LC=LC+1 

FOR N=1 TO 3:PRINT #3,"" 
LC=LC+1:NEXT N 

RETURN 

q 


' *##e* exit routine *** 
? 


CLOSE: END 
' 


Tok ote 2 2K ok fe a 2 2 2 2K 2 2 KK 2K KK 2 2K KK OK 2 eK 9 2K OK OK Ok 


> 


Been burgled? 
Engine cross-firing? 
Light bulbs burning out? 
Can't share your printer? 


Haven't got a light meter? 


Aren't sure of your CRO’s 
calibration? 


Can't pick up stereo on your AM 
radio? 


Don’t know where those vibrations 
are coming from? 


You need Electronics Today's 


BE AEP RE Ee! 
LIGHTS ; 
A6§ SVER EM BECOOS 2 : 
EASE IETS E ARH 
ERA TRG DERRATE FES. 
YIP BT POM GE CLOT OF 
ARG i TK OBE FOaK 
STARTERS BAD ¢, 
SBR PIGES eb Es 


= ry? 
BE; iy 
a 2 ae 


great new selection of Projects! 


Simple 
for the Beginner! 


Great 
for the Hobbyist! 


——— 


At your Newsagent now! 


Or send $3.95 plus $1.50 post and packing to 
The Federal Publishing Co, PO Box 227, 
Waterloo 2017 NSW. 


TT 
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Microsoft BASIC 


3526 
3530 
354¢ 
355¢ 
356¢ 
3576 


358¢ 
359¢ 
3609 


3619 


3620 
3630 
3640 
365@ 
3660 
367¢ 
3689 
5O0¢G 
5901@ 
5020 
5030 
5P4¢ 
5050 
596 
597¢ 
5995 


e-em : 
Ar 
2i:: 

! V—) a 
to YTOLRCOMPLTERL ae 
READERS LY os ea 
THE Exctysive WEW, 3 3 ae 

1Az2i: : 

eee 3 

O:: : 

Sib 

ee 

234g 

Wiig 

O:@E 

COMPUTES << Ronro™ 9 3 
CoNeneT bere 

loot teebe ose eater a athe, dog “—NATALITOFF 3 w a y 
SNIP OUT THIS COUPONG TANG 5 2%S 
SEND TO YC TODAY! W2ee 


POCKET PROGRAMS 


ae: * 
roe error trapping routine * 
13k * 
' 


3K 2K 2K Ok 2 ok 2K KK 2K 2K 2K 2 2K Ig ig oR OK 2K KK OK 2K OK OK OK OK OK OK OK 


' 


IF ERR<>52 AND ERR<>55 THEN 
BEEP: PRINT “ERROR";ERR;"IN LINE 
#"-ERL:FOR N=1 TO 1000:NEXT 


N: CLOSE: END 
PRINT OF$;" 
PRINT"press 
PRINT" press 
files " 

PRINT"press 
again" 

AN$=INKEY$: 


does not exist" 
<M> to return to menu" 
<F> to see a list of 


any other key to try 


IF AN$="" THEN 3620 


IF AN$="M" OR AN$="m" THEN END 


IF AN$<>"F" 
FILES 
PRINT"press 


AND AN$<>"£" THEN 3689 


any key to continue” 


AN$S=INKEY$:1F AN$="" THEN 3670 


RESUME 579 
' 


GOTO 579 


FOR IO GIO Kok oO a aK ok ok ok ok ok ok ok ok ok ok 


' 

' * INSERT YOUR EXTRA OPTION OR * 
'" * SORT ROUTINE - eg sort * 
' * from page 181 of Tandy 10% * 
' * manual after renumbering * 
' * lines. * 
i] 


FORO OOO RRR aK kk a ok ok ok ack ok ok ok ak ak ok ok 


Commodore 64 


@ REM CITY BOMBER BY FAUL VANDENBRERG 
FOR THE C64 WITH SUPER EXPANDER 

1 FORFH35328TOSS519: READA: POKEF, A: NEXTF 

2 L=16:5C=G4 

3 LNS=""SFORF=1TO20:LNS=LNS+t" "SNEXTF 

? SPRCOL?:COLOR,,,,@:SPRITEG,@,6,,1:SPRI 

TEZ LOIS eyed 

@ F=G:T=8 


29 GOSLUBIGGG 

10 SPRITEG@,1:SPRITE1,1! 

11 MOVSPRE, 308, 78: MOVSPR1, 309,728 

12 MOVSPRE, SHA: MOVSPR1, BHA 

2@ SPRITE@,1:SPRITE1,1 

3G MOVSPRE, 27GH2 

35 A=RSPPOS (8,8) :MOVSPR1,A, +2 

36 B=RSPPOS(1,1):IFB>2G@THEN: MOVSFR1, OHO 
!SPRITE1L, @:X%=RSPPOS(8,0):Y=200:GQOTO1ES 
4@ GETAS: IFAS<>""THEN: MOVSPR1, 180#4 

Sa GOTO3S 

198 MOVSPR2,X,Y:SPRITEZ,1,2 

141 MOVSPR1, 208,70 

!@2 IFMN<24GANDx > 1STHENC=INT(M/16) -1: IF BS 
C) }@THENB(C) =B(C) -1:GOSUB99@8: GOTO184 

1@3 IFB(C)=@THENL=L-1:L$=STRS(L) CHAR, 36 
.2,L$: GOSUE2Z G6 

104 SPPITE?, @:SPRITE1, 1: MOVSPR1, OHO 

165 GOTO35 

208 N=LEN(L) : CHAR, 364+N,Q@, " 
AIS 

261 RETURN 

g99 STOP 

9G@ SC=SC+19: GSHAPENS, C¥16, 165-(BiC) #4): 
IFB(C) =G@THENT=T#1 

961 SB=STRS(SC) ! CHAR, 16,98, 5% 

902 TUNEZ,@,15,3,9 

O82 PRINTCH8$(6) "Q2VG@T3SU9SC" 

918 IFT=14THENGOTOZGOR 

299 PETURN 

1@@@ GRAPHIC2,1:B0%,8,@,15,23,,1:EO%9,2,1 
13,3: B0X%8,5,1,6,3:B0xX8,9,1,19,3 

1001 BOX@,12,1,13, 3:SSHAPEZ%,2,0,15,3 
19G2 DIME(13):FORF=@TO123:B(F)=INT(RND(G) 
HIS) +L INEXTE 

19@3 SCNCLR: SSHAPENS,@,8,15,3 

1918 COLORS, 6:GRAFHIC2,1:COLCRI4 

111 FORF=GTO2@: CHAR, @,F,LN®S:NEXTF 

1G12 COLOR, @:FORF=@¢TO123:X=FX16:AM=B(F) IF 
ORG=163TO(167- (AMS) ) STEP-4 

11% GSHAPEZS, xX, G:INEXTG: NEXTF:LS=STRS(L) 
“CHAR, 39,4, "LIVES="! CHAR, 36,0,L% 

1814 COLORS, 6: DRAW, 224, 168T0319, 168TO319 
, 18570260, 189T0224, 168: PAINT, 258,179, 1 
1015 COLOR1I4,@ 

1816 CHAR,1@,98, "SCORE=":S$=STRS(SC) : CHAR 
.16,8,S% 

1999 RETURN 

POBG DATA, 5555552 O553194553 38,127, 255, 255 
7,191,255, 255, 255, 224,3,127, 255,255 


"J IFLESTHEN? 


ZOOL DATA, ssssssss5535asasassrannnaarye 
s3s3y992REM 36 COMMAS AND ONE @ 

ZOM2 DATA, 5553595553833 33543128,,7,128,,7, 
L288, Sayers esssassssssassssa3 

2EAS DATA, s555555353393339 


2884 DATAG,G9,9,8,2,168, 32,18, 168,168,179 
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, 168, 198, 169, 169, 42, 166, 128, 41,86,128 
2685 DATA42, 86, 128,18,85, 168, 42,85, 168, 1 
69,86, 168,165, 9, 128,41, 86,9 

2886 DATAS1, 86, 128,9, 86, 168,9, 169, 168, 42 
,17@, 168,178,170, 168,162, 168,128 

2687 DATA128,128,9,9,8,9,2 

3GG@ GRAPHICG, 1 

3081 PRINT" CRED}CONGRATULATIONS! !" 

3982 PRINT"{BLK}YOU SUCCESSFULLY DESTROY 
ED THE CITY" 

3093 PRINT:PRINT"{BLUE}YOU HAD A SCORE O 
F"3SC 

3084 PRINT“WITH"3L3 "LIVES LEFT" 

3985 PRINT:PRINT"{WHT}WOULD YOU LIKE ANO 
THER GAME?" 

3086 GETAS: IFAS=""THEN3896 

39G7 IFAS="Y"THENCLEAR: GOTO2 

9928 GRAPHIC@,1:PRINT"YOUR DEAD" 

9981 PRINT"{YELO}YGU HAD A SCORE OF"3;SC 
9092 PRINT: PRINT"{WHT}WOULD YOU LIKE ANO 
THER GAME?" 

9083 GETAS: IFAS=""THENSOO3 

9984 IFAS="Y"THENCLEAR: GOTO2 

9985 PRINT" {CLRd"3:END 


NOTES: 


CITY BOMBER 


This game is for the Commodore 
64 with the Super Expander. In it 
you fly abomber over a city, trying 
to destroy it with bombs which 
are released by pressing any key. 
You must aim carefully, as 
dropping a bomb in an area 
where the buildings have already 
been totally destroyed will cost 
you one of your lives. 
Paul Vandenberg, 
Cabramatta, NSW 


Microbee $p 


BRICKS 


Bricks is the old breakout game: 
lots of bricks, one bat, five balls 
and good reflexes. This version is 
in rnachine code, has interesting 
sound effects, uses high-res look- 
a-like graphics and has 10 speed 
levels. The bricks slowly advance 
on you. The ball increases speed 
each round, and during each 
round speeds up till you hit 
another 32 bricks; it moves away 
from you at four times the speed 
it travels toward you (to make 
waiting time less). You get 1000 
points if you break through the 
wall, and extra points for hitting 
more distant bricks. 

To play, use the A or < key for 
moving up, Z or > for moving 
down: S is for serving; ESC holds 
the ball still until you release; and 
BRK gives you back to BASIC. 

Level 0 is a good starting speed 
and 9 is just to show | have a 
sense of humour (or sadism). 

This program comes in two 
forms, aS source code and in 
BASIC. With the BASIC version, 
you type, you save, you run. The 
program uses low-res graphics, 
but I've altered the PCG’s to make 
thern look like bricks and balls. 
The bat is a real PCG and is not 
plotted on the screen. 

Richard Larkin 
Dee Why, NSW 
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POCKET PROGRAMS 


@@@WiREM BRICKS (BASIC VER) 18/4/85 RICHARD LARKIN 

DWODZDATAZ=, O, 240, 17, 1, 240, 1, O, 4,54, 26, 237, 176, 33, 29, 44 
QOOB=ZDATAI7, 212, 241,11 24, O, 237, 176» 33) S51 44,171 84s 2421 17 24 
QBBB4DATAD, 227, 176, 205, 6, 128, 33, 52, 45, 54, B 254, 89» 32, 2, 54 
QOWBOSDATAI, G2, BO» SO, SS, 45, 205, 76> 39, 195, 71, 40, 33, OB, 240, 17 
GOBVEDATAI, 240, 1,191, 3. 54, 32, 2271176) 35) 1, 240,17) 2, 240) 1 
QQQWO7DATAE1,B, 54, 131,237,176, 23, 129, 243, 6,62, 62,176,119, 25,16 
QBQVEDATASS2, 22,127, 240,17, 64, 8, 6, 12, 62, 183,119) 25, 16, 252, 205 
QBOOSDATAI 22, 29, 195, 156, 39, 32, 95, 248,17, 22, 8, 14,15, 62,149,6 
GOOLIBDATAIE, 119, 25, 25, 16, 251,135, 25, 62, @ 185, 32, 248, 2801, 205, 39 
QOO1L1DATAIZE, 33, 144,42, 17, 88, 249, 205, 2, 44, 32, 186,435,171 16, 246 
O01 2DATAZOS, 2, 44, 22, 170, 43,17, 22, 248, 205, 2, 44, 33, 161,45,17 
0201 =DATAES, 246, 205, 2,44, 23, 165,435,517, 128, 248, 205, 2,44, 32,175 
OOO14DATA4S, 17,8, 249, 205, 2,44, 32,159, 42,17, 8, 250, 205, 2, 44 

OO01i SDATASS=, 33,178, 43, 23, 112, 249, 205, & 44, 252, 32,165, 42, 23, 206 
QBOO1 GDATAZ4Y, 205, &, 44, 253, 22, 159, 43, 22, 88, 251, 205, 8, 44, 62, 128 
0001 7DATA17, 112, 251,6, 16,18, 19, 16, 252,62, 0,17, 48, 248, 6 16 
@OOiSDATAIE, 19, 16, 252,17,0, 251,6, 16,18, 19, 16, 252,62, 255, 50 
OOO1SDATAG?, 246, 50,0, 251,535,191, 47,17, 64, 253, 1,48, 0, 227,176 
QOBZODATAZ3S, 197,42,17,112, 252, 1, 48, @ 237,176, 25, 282,45,17, 168 
Q@BOZ1DATALS2, 1,48, O, 227, 176, 201, 33s GV, G3, 17, 192, 343, 1, 64,8 
O@BS=2DATALI7, 176) 33, 77, 44,17) 16. 242,1,12, 0, 227,176, 205,6; 128 
OOW22DATALZ14, 47, 254,11, 46, 247,71, 233,128, 9,17, 64, 255, 25, 16, 255 
OBO2Z4DATAZ4, 42, 45, 24, 44,45, 25. 15) 242,17, 16. 242) 1.12, 0, 237 
O@BWZS5DATA1I7E, 205, 137, 44, 237, 91, 30, 45, SE, 40, 45, 68, 50, 40, 45, 71 
QBBZEDATASE, 41, 45, 254, 0, 48, 5Q, 164, 22,47, 62, @, SO, 48, 45, SE 
OWO=Z7DATAZS, 45, 254, 1,32, 2) 26, 26, 29, 25, 38, 45, 1E2, 254, 44, 56 
QOOZSDATAI, 126, 254, 254, 40, 5, 54, 254, 205,67, 42, 127, 254, 7, 48,5 
DABZSIDATASS, 1,205,67,42, 227, 83, 20, 45, 42, 26, 45, 58, 40,45, 220 
QQO2ODATA1, 254,90, 32, 29, SE, 36, 45, 254,11, 22, 2) 44, 44,495,125 
Q@@O21DATAZ4, 2E, 45, 254,127, 202,219, 42, 254, 250, 204,869,446, 254,11, 204 
ANA SDATAING, 41.45. 45. OS. O27. 41. 7a, PAS. SITAR. 4. BRL a. 7 
Q@@O2Z2DATAG1, 20, 45, 205, 54, 128, 42, 26, 45, 205, 57, 128, 204,4, 42, 205 
BBBW24DATALO, 41, 24, 52, 42, 466,45,17, 64,0, 58, 48, 45,6, 3,119 
QWB2SDATAES, 60, 16, 251,62, 1,205, 10, 165, 204,176, 41,62, 26, 205, 18 
OOA@ZEDATAIES, 204, 224, 41,62, 44, 205, 10, 165, 204,176,41,62, 46, 205, 18 
O@O27DATAIES, 204, 224, 41, 205, 76,42, 201,42, 28, 45, 2357, 91,720, 45, 24 
BBOZEDATAZ2, 45, 237, 83, 34,45, 62,46, 205, 10, 165, 40, 251,62, 54, 205 
OOO29DATAIB, 165, 202, 33, 126, 195, 122, 40, SS, 20, 45, 71,568, 49, 45, 144 


QQ@O4ODATA7TS, £254, 7, SBE, 254, 2,62. 1, 50, 76, 45, 40, 7, 56, 2, G2 
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Microbee { 


O04 1DATAZS4, 50, 38, 45, 6, O, ZZ, 25O, 45, 9, 126-50. 41,45) 32 2 
QWWAZDATAQ, 24, FE, 4S, GZ, O, SO, 4D, 45, 42, 42, 45,17) 248) 255, 25 
OOQ4ZDATAIZ4, 254, 0, 200 34, 42) 45, SE 1) Os Gr 40, ZOS, 1235, 42, 16 
QOV44DATAZS1, 201,58, 49, 45, GQ, 254, 51, 200, 50, 49, 45, SE, 4B, 45, 198 
QBW4ASDATAZ, SO. 4S, 45, 254, 221, 192) G2) 212) SO, GBs 45, 42, 4G. 45 17 
QOO4EDATAIZE, @ 25, 54, 32 42 GE, 45, 17) 192) 255, 25, 24, 46, 45, 201. 
@OO47DATASS: 49, 45, 61, 254, 5, 200, SO, 49, 45, SS 48, 45, 214, 2,50 
QOO4EDATAGS, 45, 254, 209, 192, G2, 218) SO, 48, 45, 42, 46, 45, 54, 22,17 
QOV4SDATAES, @ 24, 215) 42) 2B, 45, 125) 205, 135, 15, 79, 214, 31, 203, 135 
QOVSODATAIS, 202,125, 15, 2O5, 155, 15> Gs O FS, G4, 240, 9, 71517, 64 
QOVSIDATAD, 14, 12, 126) 254, 125) LOZ 102) 42, 254. 145, 202, 102, 42, 254, 148 
QOOSZDATAZOZ, 102) 42, 25, 13, GZ, OW 18S, 32, 253, 201,58, 36, 45, 47, SO 
BOOSEDATAZE, 45, 2O1, TZ, SV» OW, Gr GO, 20S 135, 42, 2O1, 42, 42, 45, 58 
QBOS4DATAZE, 45, 254, 1, SZ, 10, 191, 203, 28, 205, 29, 191, 203, 28, 207, 29 
BWOSSDATASS, 124, 1811 32> 251. 201) 54, 128, 4, 205, 145, 42, 58, SF, 45, 6B 
QOOSEDATASD, 52, 45, 220, 31) 254) 8, 204, 31,43, 205,59,42, 32,550 


OBOS7DATAIL, 58, @ 205,125, 42, 201,58, 52, 45, 254, O, 208, 205, 95, 167 


OBOSEDATALOlL, 23, 227, 243, 126,68, 119, 254, SE, Za, 29, 54, 46, 45,125, 254 
QWOSIDATAZZ4, FZ, 11,58, 204, 245, 6B, 254,58, 4O, 3, 50, 204, 243, 125, 254 
QOBEBDATASZ2, FE, 225, 62,577 58, 204, 243, 16, 215, 23, 225, 243,17) 248, 247 
Q@QOOE1DATAE, &, 7E, 26, 165, 40,4, 56, 6 24, 15, 25, 19, 16, 243, 33 
OOBEZDATAZE2, 242,17, 248, 245, 1,6,0, 237,176, 201,62,1200,6,1,245 
OAWVE=SDATALGS, 205, 145, 42, 241, 23, 20, 8 71, 205,155, 42, 241,61, 254,80 
QOOE4DATAZ=E, BES, 42, 44, 45,117,192, 255, 25, 124, 254, 0, 202,5, 42, 24 
OWBWESDATAGS, 4S, 34, 42, 45, 62, O, 58, 52, 45, 22, 56,0, 24, 22,45 
BOBEEDATAZ2, 24, 8, 24, 34, 45, 205, 76) 39, 205, 127, 44, 195,122, 40, 17 
QQOE7DATASS, 240, 62,13, 35, 2,0, 25) 1, 30, O, 237, 176, 35, 24,0 
OBOESDATASS, 235, 61, 254,08, 32, 227,35, 125, 240,6,12,17,64,8, 62 
OOBESDATAIGS, 119, 25, 16. 252,425, 28,45, 125, 214, 2,111, 74, 268,45, 201 
@WO7ODATA=2, 66,65, 76, 76, 82, 32, 76,69, 70, 84, 32, 53, Fa, 35) 22 

QOO71IDATAZS, 32, 3a, 32, Fe, FS, BS, Fa, 22, 83,67, 79, 82,69, Ta, 48 
QWO72DATAGS, GS, 4E, 46, 48, 32, 352, Fa, FZ) Bor Dey Bay SS T2173 71 
OO072=DATA72, 22, B83, 67,79, 82,69, 32, 48, 48, 46, 48, 46,48, 32, 22 
Q@OB74DATAD, SE, 168, 60, 160, 62, 162, 80, 160, 52, 160, 8&0, 160, S8, 96,0 
Q@BB@75DATAD, 0,3,0,8,0,9,8,0,3,6,9,9,9,6,0 

BOO7EDATAD, 2,0,0,8,8, 8.0,0, 0, 96, 144,144, 144, 96,0 

@0077DATAQ, O,0,0,2,0,8,0,2, 0, 192, 160,144,156,176, 152 

Q@BO7SDATAIL 2, 122, 128, 130, 120, 120, 120, 120, 129,129, 129,129, 129,129,129, 129 
OQ@B79DATA1L29, 120, 120, 120, 130, 120, 120, 122, 1352, 122, 126,126,144, 160,192,0 


OOOEODATAD, 0,9, 0,0, @, @,0,0,0,2,7,11,15,11) 7 


Microbee 4p 


OBOSiDATAS, 3,1,.16,0, 257; 176, 201,6, 16, 221, 33, 144, 42, 221,126 


GB@S2DATAD, 252, 182, 0, 119, 221, 35, 255, 35, 35, 16, 242, 201, 22, 87,69 


BAASSDATATE, G7, 79, 77, 69, Se, 84, 79, 32, 66, Ba, 69,65) 75, 32, 79 


QOWDE4DATAES, S4, 32, S35, 32, 32) B7, 79, BS, 76, 8, FZ, BI, 79, SS» SZ 


QOBESSDATATE, 73, 75, 69, 32, BS, 79, 85, 76, 68, 32,635, 52,85, 60,69 


QQBEEDATAES, GE, 32, 42, 48, 45,57, 41,63, 58, 204, 243, 61, 254,47, 40 

BOVS7DATAZ=, SO, 204, 243, 42, 26, 45- 237,91, 38, 45, 205, 51,126, 32, 24 
QOBESDATAD, 34, 38, 45, 205, 127, 44, 201, 205, 6, 128, 32, 248, 245,17, 156 
QO@EIDATAAS, 1,6, O, 237,176, 195, 65, 39, 205, 20, 41, 205, 169, 44, 62 

BBOSODATASS, 205, 18, 165, 202, 33, 128, 62, 19, 205, 18, 165, 
Q@0091 DATAQ, 237, 91,34, 45, 205, 51,126, 201, 237, 91, 34, 45, 32,56,8 
QBBI2DATAZOS, 51, 128, 237, 91, 30, 45, 33, 56> 


OBOSSDATAZ37» BS, 34,45, 19, 254, 1) Zo Sy 277 27, 1LS3, 214s 7) 254, TE 


Q@A2ZS4DATASE, 14, SE, SE, 45, 254,1,62,1, 32) 2) 62, 254, 50, 28, 45 


QABISDATAZS7> ES, IOs 45, 42, 5O,. 45, 35, 3G, 44, 124, 254, 192, 22, 
QOOSEDATAR, 128, 34, 5, 45, 126, 230, 7, 33, 


COS97DATASO, 41,45, 121, 230, 1,508, 36, 45, & &, 205, 76, 42, 16, 251 


BABSEDATAS=, SE, B, 34, 2E, 45, 62, @, 58, 48, 45, 201,64,9, 27,8 


VAOSIDATAES, @, 27, 8, 1,0,1,8,08, 2,9,0,8,6,0, 240 


Q@Bi B@@DATAZ18, 47,0,0,1,8 


POCKET PROGRAMS 


Fat bn 
SP 2m PT 26 


1 205,48, 126, 58, 38, 45 


= 
By 


250,42, 6) 8, 79, 9, 126 


@@101 C=@ : FOR X=10@@@@ TO 11572 =: READ Y =: POKE X,Y : C=C+Y NEXT X 
Q@@1@2 IF C=174@ THEN PRINT "OK" ELSE PRINT "DATA ERROR" 
@01@3 REM IF "OK" THEN TYPE I=USR(18000) TO PLAY GAME! 
H ita h | P | 1 
TYPE.BAS fp oe 
‘ IL fg aD Ne ear Riese PRP eae oe net ey Sere er eee ee, 430 "SUBROUTINE TO OPEN DATA FILE 
120 ‘Author: Phitip Cookson Date: 04/01/85 440 OPEN "I", #2, FILENAMES 
130 ‘Description: 450 RETURN 
‘ : 1s 7 140 'This program reads a data file from the disk and types it to either 460 ' 
This program !Sa utility that emu 1SO:tthe screen or a. itheprinters 470 ‘SUBROUTINE TO READ AND PRINT THE DATA FILE 
lates the CP/M’s TYPE command aaa a cc pee ae ery EN eae 
iS ; : j U , TEXTS 
on the Hitachi Peach. It types the 180 GOSUB 260 ‘SET ERROR TRAP ON 500 PRINT #1, TEXTS 
: : ; 190 GOSUB 300 'DETERMINE DATA FILE TO TYPE 510 GO TO 480 
required data file to the user's 200 GOSUB 350 ‘SELECT OUTPUT TO SCREEN OR PRINTER 520 RETURN 
; . 210 GOSUB 430 'OPEN SPECIFIED DATA FILE 530 ' 
choice of the screen or printer, 220 GOSUB 470 ‘READ AND PRINT THE DATA FILE 540 "SUBROUTINE TO CLOSE THE OUTPUT AND DATA FILES 
. . 230 GOSUB 540 'CLOSE OUTPUT AND DATA FILES 550 CLOSE #1, #2 
and Is a useful program for VIEeW- 240 END 560 RETURN 
; ; . 250 '' 570 ' 
ee na of a ee file cre 260 ‘SUBROUTINE TO SET ERROR TRAPPING ON 580 ‘SUBROUTINE TO HANDLE ERRORS 
rwor r is 270 ON ERROR GO TO 580 590 ' 
ate yt € Hi rite 0 proces 280 RETURN 600 ' (1) File not found error 
sing software, without having to 290 ' 610 IF ERR=63 THEN BEEP:PRINT "FILE NOT FOUND": RESUME 230 
f 300 ‘SUBROUTINE TO DETERMINE THE NAME OF THE DATA FILE TO TYPE 620 ' 
go through the lengthy process O 310 INPUT "NAME OF DATA FILE TO TYPE : ", FILENAMES 630 ' (2) Device unavailable error 
3 : : 320 IF RIGHT$(FILENAME$ ,4)<>".DAT” THEN FILENEME$=FI!.ENAME$+". DAT" 640 TF ERR=60 THEN BEEP:PRINT "DEVICE UNAVATLABLE': RESUME 230 
booting up HiWriter. Sa RETURN 660 ¢ 
hy 340 '' 660 ' (3) Input past end error 
Philip Cookso n, 350 ‘SUBROUTINE TO SELECT OUTPUT DEVICE FOR DATA FILE LISTING 670 IF ERR=54 THEN RESUME 230 
Armadale Vic 360 PRINT "TYPE TO <1> SCREEN OR <2> PRINTER ? " 680 ' 
‘ 370 ANS$#INKEY$: IF ANS$<>"1" AND ANS$<>"2" THEN GO TO 370 690 ' (4) Miscellaneous error 
380 IF ANS$e"L" THEN DEV$="SCRN:" 700 BEEP: PRINT "ERROR CODE "SERR:" ON LINE "sERL: RESUME 230 
390 IF ANS$="2" THEN DEV$="LPTO:" 710° 
400 OPEN "O", #1, DEVS 720 END 
410. RETURN 
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BBC 


10 REM ##** BINGO #*** 

20 REM for BBC Microcomputer 
20 REM by Syd Sanders 

40 MODE? 

SO #FX11,0 

6&0 #FXVSIG1 

65 FROCinstruct 

70 FROCinitialize 

BO FROCmain 


1OOo *FXKXiS 50) 
1140 *FX229,0 


115 CLS:END 

120 DEFFROCinitialize 

120 DIM N%(100) :R=RND(-TIME) s @A=&%:90A;:@ 

£2 8000043 CAO 

140 ENDFPROC 

120 DEFFROCmain 

160 CLS:C%=CZ4+1:A4=90: BZ=AZ:PRINTTABCIL 
3 2 CHRE (141) 3 CHRE (1231) 3 CHRE(C136) "BINGO" 
sFPRINTTAB (C12) CHR# (141) 5s CHRE (123) sCHRE (1S 
46) "RINGO" sFRINTTAB(O,23) 3s CHR# (121) "GAME 
"(MSP INEEY (100) : 

170 FOR I2%=1 TO A“Z:NZACIZ) =14%s NEXT 

180 FOR L4“~=1i TO Ax 

190  TFR“Z=1 J%=1 ELSE JZ=RND (BZ) 

ZOO FRINTTABR (16,19) CHR# (141); CHRE(15 
OONK CI%) s PFRINTTAB (16) CHR# (141) s CHR (150) 
N%(I%) sVDUS1, 30,23: PRINTCHRE (124) "DRAW " 
sLYsPROCLot (J%) 

210 REPEAT: ZZ=GETSUNTIL Z“%=22 OR Z 
“42272 TF Z4227 LA=AL 

20 FRINTTAR(C14, 
AB(C1L4)" i 

at) FOR E“Z= 1% 
)sNEXT: BA=BAZ-1 

240 NEXT 

220 FRINTTAB (CO, 23) sCHRE (133) "ANOTHER G 
AME? “ss: ANO#=FNrept:s IF ANO#="Y"OR ANOF=" 
y" THEN 160 

260 ENDFROC 

2/0 DEFFNrepts test=FALSE: REPEAT: A#=GET 
#3: IF INSTR (O"YyNn",A#)=0 VDUZ ELSE test=T 
RUE 

280) UNTIL tests: =A 

290 DEFFROCLot (J%) 

S00 IF NACIZMODLO=OTHEN x% 
mAae ((NACI“Z)MODIO)—-1) 

e1O TF N“Z2CIZ) MODLO=OTHEN y“2=S+ 
TV1i0) ELSE y“2=6+ (NZ (IZ) DIVIO) 

weQ FRINTTABCKZ,yAINACIZ) 

220 ENDFROC 

220 DEFFROCinstruct 

260 CLSsFRINTTABCI,2) "Do you want inst 
ructions? "ss Ins#t=FNrept:IF Inst="N"OR I 
ns#="n" ENDFROC 


19)" "sPRINTT 


+i TO BYIN% (k%-1) =N% (EY 


=56 ELSE x% 


(NAC IZA D 


POCKET PROGRAMS: 


BINGO 


This program simulates a bingo 
draw. It has been written to runon 
the BBC Micro, but modifying it to 
suit other machines should not 
prove too difficult. The BBC ver- 
sion, as it stands, is well error 
trapped. The likelihood of an 
accidental crash in the middle of 
a game is extremely remote. 
The program should prove use- 
ful to people interested in fund- 
raising for sporting groups or 
voluntary organisations. 
‘Syd Sanders 
East Victoria Park, WA 


270 CLS: PRINTTAB (10,2) CHRE (13 1)>s "BINGO 
INSTRUCTIONS. 

380 PRINT’ "When you press the SFACEBAR 
the first" 


390 PRINT"marble will be drawn and ‘the 
result" 
400 FPRINT'displayed in ire qreen dig 


its an the" 

410 PRINT"screen. 
ced in its" 

429 PRINT"correct position in a table 
near the" 

430 FRINT'top of the screen." 

440 FRINT"To draw each additional marb 
le simply" 

450 PRINT"press the SPACERAR ance. 

460 PRINT"When BINGO has been called t 
he player's" 

470 PRINT'numbers can be checked 
st those" 

480 FRINT'shown in the table." 

500 FPRINT"After a successful call, 
ss ESCAPE" 

210 FPRINT"to move to the next game or 
=O) Spot 

20 PRINT "the program. " 

525 FRINT' The current game number 
the number” 

veo FRINT" of 
ent game" 

we? FPRINT" are displayed at the battom 
of the" 

229 FRINT’"screen at all times.’ 

220 FRINTTABR(S,23) "Press SPACEBRAR to c 
antinue. "s sREPEATUNTILGET=32: ENDPROC 


Tt will alsa be pla 


aqain 


pre 


and 


marbles drawn ain the curr 
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VZ 200 


NUMBER SLIDE 


Number slide is a computer ver- 
sion of the puzzles that used to be 
given away with breakfast cereal. 
This version has been adapted 
from a ZX81 program printed in 
this magazine a few years ago. 
The idea is to rearrange the 
numbers in correct.order after the 
computer has mixed them up. 
The program should work on 
other computers without much 
modification. 
Bruce Daniel 
Mudgee NSW 


48 NEXTX 

5@ LETA(5)=-32 

68 FORX=1T09 

78 IFX=5THENGOTO1 3@ 

88 LETP=RND(8) 

9@ FORY=1T09 

108 IFA(Y)=PTHENGOTO8O 
118 NEXTY 

128 LETA(X)=P 

158 NEXTX 

148 PRINTAZ24, 2$52$5 = PRINTAQ, § 
20@ FORX=1T03 

218 FORY=1T03 


228 PRINTCHRS(A(Y+(X-1)#3)+64) 5° "5 


248 NEXTY 
298 IFX=1THENPRINT" = 123" 
268 IFX=ZTHENPRINT" 456° 


1@ DIMA(9) sBS$=CHR$(B)+CHR$(8)+CHR$(127)+CHR$(127) 278 IFX=3THENPRINT® 789° 


12 2$=" 
15 CLS 
28 FORX=1T09 
38 LETA(X)=@ 


ELECTRIC 
TUNNEL 


The object of the game is to travel 
along the tunnel, avoiding the 
electrically charged walls. 

The program uses joysticks for 
control, but by modifying lines 
170 and 180 the program could 
use the keyboard: 

170 KYS=INKEYS 
180 IF KYS="M”" THEN Z=Z-1 
ELSE IF KYS=",” THEN=Z Z+1 

The PEEK in line 190 checks to 
see if the position in front of you 
is clear. Scoring is based on the 
distance you travel along the 
tunnel. 

Bruce Daniel, 
Mudgee, NSW 


288 PRINT 
298 NEXTX 
J5BQ PRINT 
318 PRINTAZ54, "MOVE FROM: 


@* ELECTRIC TUNNEL 

1’ WRITTEN BY BRUCE DANIEL 

3 

1@ CLS : COLOR 2,8 

20 PS = CHR$(143) 

3@ FOR T=1 TO 18 : P$=P$+CHR$(176) 

4@ NEXT I: P$=P$+CHR$(143) 

3@ IF INKEY$<7"" THEN X=RND(@) :G0TO 50 
108 PP=16-INT(LEN(P$)/2) 

118 2=16 

138 PRINT TAB(PP)3P$ SPOKE 28672+7,99 
148 IF RND(Z)=1 THEN PP=PP+RND(3)-2 


POCKET PROGRAMS 


328 INPUTF 

348 IFF>9THENGOTOS1@ 

358 PRINT 

360 PRINT@320, "MOVE TO: = "SBS$5 

378 INPUTT 

38 PRINT: IF (F=3ANDT=4) OR(F=4ANDT=3) ORT=QTHENS1 
398 IFT>90R(F=46ANDT=7 ) OR(F=7ANDT=6 ) THENGOTO368 
480 [FNOTA(T)=-G2THENGOTO368 

41@ IFABS(F-T)=10RABS(F-T)=3THENGOTO43@ 

420 GOTOSI8 

43@ LETA(T)=A(F) 

448 LETA(F)=-32 

458 CLS 

47@ FORT7=1707 

48@ IFA(1I7)>A(17+1) THENGOTO20@ 

49@ NEXTI7 

3@@ PRINT" CONGRATULATIONS, " 

318 PRINTTAB(S) "YOU HAVE SOLVED THE PUZZLE.” 
32@ PRINT 

5.3@ INPUT*TRY AGAIN (Y/N) "5X$ 

348 IFX$<>"N* THENRUN 

35@ CLS2END 


46@ FORT=1705 

478 FORTD=1T0252NEXTTD 

48@ PRINT@@,"-+# CRASH CRASH CRASH CRASH #+- °5 
498 FORTD=1TQ25:NEXTTD 

588 PRINTa@, * "4 
518 FORTD=1TO252NEXTTD, I 

528 PRINTA128, "SCORE: "3’ INVERSE "SCORE? 

33@ SC=INT(CN#L. 2-DN) =PRINTSC§ 

348 PRINT@48Q," PRESS «RETURN? TO TRY AGAIN"; 

558 IF INKEY$<>CHR$(13) THEN 558 

368 RUN 


158 IF PP<3 THENPP=3ELSE IFPP>(32-LEN(P$)-3) THENPP=32-LEN( P$)-3 


168 IF CN<16 THEN 290 
178 JK= INP(43) AND INP(46) AND 31 


188 IF JK=27 THEN 2=Z-1ELSE IF JK=23 THEN Z=Z+1 


19 L=PEEK(28784+2):1F L¢>144 AND Lé2i76 AND L<*128 THEN 480 


298 CN=CN+ISIF CN/3Q¢>INT(CN/38) THEN 138 


JOB Q=LEN( PS) 
318 IF Q¢=5 THEN 132 


328 PS=LEFTS$S (PS, 1)+MID$( PS. 2, Q-3) +RIGHTS( PS, 1) 


338 GOTO 138 
400 PRINT:POKE 286727+7,45 


410 COLOR, 1?SOUNDS1, 1°SOUND31,1:SQUNDZ3, 1 :SGUND23, 1 


420 SOUND13, 1:SOUND13.1:SQUND4,5 
475? | 

440 SOUND 2,2 

450 COLOR,@ 


LOAN PRINT 


The program will print any reduci- 
ble interest loans either to the 
screen only or to both the screen 
and the printer. It has a page 
mode built in so that, if the loan 
details exceed one screen, those 
visible can be viewed before 
going on to the next page. Use the 
shift key to go to the next page. 
If the printer being used does 
not auto-linefeed, line 1080 
should have the following added: 
:-*FX6 after the statement THEN 
VDU2. 
| have found the program most 
useful when comparing different 
_loans from various lending 
bodies, and have saved 
thousands of dollars in interest. 
Kenneth Nicholls, 
Kanahooka, NSW 


LOR EMEH KEK KKEKEKEKEKHKEKEKEKEKEEEKEKEE 


ZOREMES %¥ 
SOREMK¥ LOAN-PRINT ¥¥ 
J4OREMK* By John Nicholls HX 
DJOREMKE Version 3.3 H% 
6OREMEK* Prog subject to %* 
PCREME Copyright HX 
SOREMK¥ Mag Name 1924 HX 
FOREMH* ¥¥ 
LODRE MEKXKKHKKHK HE KKHKKHKEKEKKKKKKKKKE 
110MODE?7 


1200N ERROR PROCer ror 

13SOPROCinstruct 

140PRQOC quest 

1SOMQDES3 

160PROCinit 

17O0PROC loan 

18OPROCcalc 

190PRINT" The Monthly Payment is 
ZOOPROCSheet 

210PROCmain 

2Z20INPUT" Process Another Loan ( YES/NQ)"53;AS 
230IF AS="YES”" OR ABS="Y" THEN 160 
240VDU3 

2ZSOMODES6 

260END 

270DEFPROCinit 

290C%=&2020E 

300VDU235 8202560;0;3;0; 

310VDU14 

S3ZQCOLOUR129 

330COLOURO 

340CLS 

SSOENDPROC 

ZG60DEFPROC loan 

370 INPUT” Enter Amount of the Loan 
SS8OINPUT" Enter the Annual Interest Rate 
S9SOINPUT”" Enter the Term in Years 
400ENDPROC 

410DEFPROCcalc 

420interest=rate/12 
430month=yearsk¥i2 
44Camount=(Cinterest#¥loan)/((1-Cinterestt1l) *-month) ) 
450result=amount 

460PROCroundof Ff 

470amount=result 

Ae 2ENDPE ST 

4S°ODEFPROCr oundod f 
DSOOresult=INTC¢rdsoOx#e(resunit-+a, 005) ) 7/150 
SLOENDPROC 

S2ZODEFPROCS! set 

SSObsalance=ican 


"Samount 


"Sloan 
"Sjrate 
"S$ years 
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POCKET PROGRAMS 


BBC 


BSd9total=c 

SESSPTNTTARBS LO) "MONTH" S 2 PSINTTAB(Z2) "TO"; : PRINTTAB( 36) "TO" 

SSOPPINTTAB(IO) "NUM’S:PRINTTAB( 22: "INTEREST"3:PRINTTAB{i(36) "PRINCPL"5; ;:PRINTTAB ( 
S) "PRIN BAL"tiFRINTTAE(63) "TOT INT" 
S TORN DPROC 
TDEFSRFOCinterest 
irteril=balance¥interest 
rezevlt=intert 
SPPOCroundoaf ¢ 

DENDFPOC 

CDEFFROCmain 

S2F OP line=1 TO month 
SCPROCinterest 
ST nteril=result 
S°Oprint=amount-inter: 

SOtTIF iine=month THEN prist=balarc 
S°Cbalance=balance-print 
Peatotal=totaltinter!l 
T“LOGOPRINTLline,interl,fprint.baiance,*t otal 
PRONEMT Line 
~TCENDFROC 


2 


o 


QO. i A 
4a 
9 2 


fl ae BN ; »= 7) 
w) 


ub 


th Us on 


iy 
~. 


mt 


“AODEFPROCinstruct 
PROUD Bay ClOe Cs ovo! 
7SOPPINT CHES (141);" LOAN PRINTOUT” 
"TOPRINT CHPS/23i0 5" LOAN FRINTGUT 


TSOCPRINT’ TC 

POOPRPFINTTARS ZI ICHRECLZLI "This program 16 designed to * 
SOOPRINTTSE OT) CHE SCLTI eprint cut 2 reducibis interest " 
SLCPRIN TTAB CT OCHRP@iftTlis "lean. Aiji the instructiaons are 
' f 


” 


SPOFRPINTTAPS SF  ICHPSE(1Sti 3s "simple tt: fsilsu, but for Eexampie" 
STOPETNTTAR (TO CHES i2tlos "when asked ta enter an” 
S4CPRITMNMTTABRCZISCHRE (L271) i interest ; ate of 25% or 50%” 
SSOPRTIUTTABCZ) IT CHRS (1313 "it should be ertered O.25 or 9.60" 
BSOPPINTTABCTIICHFE( ISL) 3s "Cor whatever rate is appropriate.” 
ee ee ISB! "Tf the term of the lean 1s" 
ag ia ee he alga tha; 13 months ther" 
ROCFRINTTAR (3 PSCHPS( LAL IS (the program enters page mode” 
Cc 


SQOPPINTTAB (3) {CHRS (171) tpi ss 

PLOPPINT? * 

P2OPRINTCHR SE C1 250 50" Press any key tao continue’ 

IZOK%= GET 

S4ATENDPRCOC 

9SODEFPFOCGuveEest 

P6CCLE 

STOPRINTTAB( ZT) SCHRPS(LTL "I. E.enter the data as follows” 

SPSBOPRINT 

SOSOPRINTTAB(S) SCHR (iSl is "Enter amount of Loan ?"; °FRINT CHR#®(132)5 "1000" 
LOOOPRINT 

LOLOPRINTTAB(3)3;CHRBi 131) 5 "Enter the Annual Interest Rate?"5  :FRINTCHRS(133)5 "0. 
Lo 

LOZOPRINTTAB(3) SCHRS(131)3s "Enter the Term in Years PP"; 7 FRINTCHRS(1235)3; "3" 
LOSOPRINT’’? 777??? ?? 

LOSFOPRINTTAB(3) ;CHRS(12317335 "Do you wish to use a printer ?" 
LOSOPRINTTAB(3) 5 CHRS( 131); "Enter YES cr NG" 

1O060PRINT’ 

1070PRINT" "S:INFUT PS 

L1O80OIF PBP="VES"CRPPSB="Y¥" CR PB="yves" OR PB="y" THEN VDLI2 


shift to scroll page” 


LOSFOENDPROC 

LLOODEFPPOCerror 

LIZTOCLS LIGOPRINT" at line "ERL 
1LZOVDU2 1LZS0END 


11 23OREPORT {1 sO0ENDPRQOC 


POCKET PROGRAMS 


BBC 


A sample run of the Loan Print program. 


Process Another Loan 


( 


YES/NQ) ?N 


Enter Amount of the Loan ?20000 
Enter the Annual Interest Rate 70.156 
Enter the Term in Years ?4 
The Monthly Payment is $562.72 
MONTH TO TA 
NUM INTEREST PRINCPL PRIN BAL TOT INT 
1.00 260.00 302.72 19697.28 260.00 
2.00 256.06 306.66 19390.62 5316.06 
3.00 292.08 310.64 19079.98 768.14 
4.00 248.04 314.68 18765.30 1016.18 
3.00 293.95 318.77 18446.53 1260.13 
6.00 239.80 322.92 18123.61 1499.93 
7.00 235.61 227.11 17796.50 1735.54 
8.00 2oke35 331.37 17465.13 1966.89 
9.00 227.05 335.67 17129.46 2193.94 
10.00 222.68 340.04 16789.42 2916.62 
11.00 212.26 344.46 169444.96 2634.88 
12.00 213.78 348.94 16096.02 2848.66 
13.00 209.25 353.47 157492.55 3057.91 
14.00 204.65 358.07 15384.48 3262.56 
15.00 200.00 362.72 15021.76 3962.56 
16.00 195.28 367.44 149654.32 3657.84 
17.00 190.51 372.21 194282.11 3848.35 
18.00 185.67 377,05 13905.06 4034.02 
19.00 180.77 381.95 13523.11 4214.79 
20.00 175.80 386.92 13136.19 4390.59 
21.00 179.77 391.95 12744.24 4561.36 
22.00 165.68 397.04 12347.20 9727.04 
23.00 160.51 402.21 11394494.99 4837.55 
24.00 155.28 407.44 113537.55 3042.83 
25.00 199,99 412.73 11124.82 S192.62 
26.00 144.62 418.106 10706. 72 5337.44 
27.00 139.19 923.53 10283.19 5976.63 
28.00 1323.68 929.04 9354.15 5610.31 
29.00 128.10 434.62 F419.53 5738.41 
30.00 122,45 4490.27 3979.26 5860.86 
31.00 116.73 445.99 8535.27 5977.59 
32.00 110.93 4351.79 8061.46 6088.52 
33.00 105.06 4357.66 7623.82 6193.53 
34.00 99.11 963.61 7160.21 6292.69 
35.00 93.08 469.64 6690.57 6385.77 
36.00 846.98 475.74 6214.83 6472.75 
37.00 80.79 4381.93 5732.90 6553.54 
38.00 749.53 43a.19 5244.71 6628.07 
39.00 68.18 494,54 9750.17 6696.25 
40.00 61.75 500.97 4249.20 6758.00 
41.00 a5.24 507.48 3741.72 6813.24 
42.00 42.64 514.08 3227.64 6861.88 
43.00 41.96 S20.76 2706.88 6903.34 
44.00 Sael9 S27.53 2179.35 6939.03 
45.00 2S 534.397 1644.96 6967.36 
46.00 21.38 541.34 1103.62 6988.74 
47.00 14,35 5498.37 Sooe 20 7003.09 
42.00 are a4 fadeoo 0.00 7010.31 
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Microbee Gp 


MUSICAL 
MICROBEE 


The program assigns a note value 
to each key in the top row of the 
keyboard (excluding the black 
ones). Pressing the key sounds 
the note, and writes it to the 
screen as a crotchet (or crotchet 
rest) on the displayed staff. The 
range is about an octave and a 
half. Bar lines are displayed every 
four notes, and a piece can con- 
tain up to 109 notes. 

Displayed note sequences may 
be played or edited. Pressing RE- 
TURN starts the music playing, as 
does LINEFEED, but at a slower 
speed. During play, a cursor 
moves along the piece. 

The piece may be changed by 
‘overwriting’ at the cursor posi- 
tion. The cursor may be shifted 
using: 
< left 
> right 
ESC to start of piece 
BACKSPACE to end of piece 

In addition, a note may be de- 
leted using the DEL key. 

The limitations of Musical Mic- 
robee are that it only plays 
crotchets and whole tones, has 
limited note range and only two 
playing speeds. Despite this, the 
program held the interest of my 
children for a reasonable length 
of time. It was meant as a first 
exposure to musical notation- 

Drew Krix, 
Kaleen, ACT 


a rrr rr spre a in ss sl Ss SS SS sr urine Sr US 7 =e a eis 9 PS si ene shee nage 


ee Meee eel er cereal cceRarl van DerreIbeaDasePearleaeDearcieacedeecncd 
SS ee ee ae ae ae ae oe ane Se ane a ORD eee Sane Sees aanee She 


0100 GOSUB 47O°FOKE 220,S:FCG 

@110 CURS TOX+0)+T(Xs2)4+28PRINT" "5 

0120 A4$=KEY:SIF A4$=""" THEN 120 

Q120 IF A4¢="." THEN 250 

0140 IF A4t="," THEN 360 

@150 IF ASI (A4$)=68 THEN 320 

Q@140@ IF ASC (A4$)=13 THEN 370 

0170 IF ASC (A4$)=10 THEN 370 

@120 IF ASC (A4$)=27 THEN 340 

@170@ IF ASL (A4$)=127 THEN 410 

200 REM *#* Put in note 

0210 L=O:FOR F=1 TO 13:21F Ni$( sk, E)=A4S 
THEN LET L=E 

@220 NEXT K:IF L=® THEN 110 ELSE FLAY N( 
L+O@ez 

O20 IF T(Xs1)=100 THEN IF XM THEN LET 
T(X+1+1)=100 

O240 TUX, 1d =LIECURS T(X,0)>TCXs 2S) SPRINT'S 
"SALSCSN( Le LI oN(L91))3 

O250 CURSE TOX+O) + TOXe S41 2P RINT"? "SA1LS( 5 
N(Le SZ) oN(Le2)d)580IF L=e THEN CURS TCX 
rOdeT(Xe SFL SFRINT' "S$ 

O@2Z640 X=X+1°1F X=M THEN LET X=M 

Q2790 GOTO 110 

Q@250 REM move cursor right 

@270 IF T(X,+1)=100 OR X=M THEN 114 ELSE 
LET X=X+1i:650TO 110 

200 REM move cursor left 

@21@ IF X=@ THEN 110 ELSE LET X=xX-1:607To 
110 

@220 REM return to ist Position 

Q@3230 X=0:G0TO 110 

@24@ REM go to end 

@250 FOR X=0 TO M:IF T(X+1)=100 THEN NEX 
T#X 110: ELSE NEXT X 

240 GOTH 110 

@270 REM Play tune 

220 FOR K=O TO MSIF T(kK,+1)=100 THEN NEX 
T#k 110: ELSE CURS TK +@),T(K+2)+2°5F 
RINT" "StFPLAY N¢OT(CK91)+0)+22NEXT Fea 
OT 110 

270 REM Play slo 

0400 FOR k=@ TO MSIF T(k,+1)=100 THEN NEX 
T#k 110: ELSE CURS TK, 0) »>T(K ye 2) +28F 
RINT" "SsPLAY NC T (kK 91320), SSFPLAY O91 
NEXT EsGOTO 116 

0410 REM delete note 

@420 IF T(X+1)=100 THEN 110 ELSE IF X=M 
THEN LET T(Xe1)=1008K=X28G0TO 450 

0420 FOR J=X TH M-127¢03+1)=T(J4+1+1)°L=T ( 
Jr1) 

@440 IF L=100 THEN LET K=J2:NEXT#J 450 

0450 TURS TC.J+0)+T J+ 2) SPRINT S"SALS(SN( 
LeldeoN(Let)d35 

0440 CURE T0310) +TOJe 2) +1 2FRINT S'S ALS (5 
Nebo Sd eo Nb) ) 5 

0470 NEXT J=T(M+1)=1003K=M 

O420 TURS TK O)s Tks 2) SPRINT'S" 3 sCURS 
TK + Oe TCR se SV4+LSPRINT So" 3GOTO 11 

0470 REM #### Initialize HEHE 

0500 FORE 220,20: IN#4 ONSM=105:20IM TCM, 2 
JyNCLse2) 

O510 CLSICURS S1,S::FPRINT"*# © * MU S I 
% % HM 

T20@ ALS="012245475%abcdefahisjklmnorarst 
uUVWwxYZEn- TO " 

O50 FOGSFOR K=1 TO LEN(A1$) 

0540 FH42452+AS0 (ALS (SK eK) e#14°2FOR I=P T 
OM F+iS:READ DSFoKE I,O:NEXT I 

Q@550 NEXT E 

540 CURS 2S, 1LtPRINT"20S445"3 :CUIRS 2, 2SPR 
INT" SL S72" 5 
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S70 CURS S)1:PRINT"S2a"s3:FOR K=1 To 4P 


RINT" Sasa5ao5a"5 =NEXT FE 

O580 CURS S,2:PRINT9ob"S2FOR K=t TO 4:F 
RINT" 29 999999b" 5 INEXT E 

0270 FOR J=4 Tl 10 STEF SICUuRS 2) J:FOR EF 
=1 TO 7:PRINT"SS835ao5a" 5 2NEXT KE 

9400 CURS 2) J+1tFOR E=1 TO 7PRINT 2 oooo 


277 b Ss sNEXT KENEXT oJ 

0410 X=0:2T(0,1)=100 

O40 L=O@sT(Lre2dH1sT(L+ QO) =S5FOR K=1 TO 4s 
L=L+iiT(bLseS)=15T(bL» O@)=T(L-1,0)4+3:2F0R 
J=1 TO Seb=le1iT(bLsy2)=1:T(L + Od =T(L-1 
1,O)4+2°NEXT JIENEXT E 

Q430 FOR Y=4 T0 10 STEF =:2T(L,@)=-1°FOR 
R=1 TO 7SLelLtisT(LreSd=V¥iT(lL,@)=T(L—-1 
°O)+32FOR J=1 TO SItL=L4+1 :T( Le 2y=veT ( 
L»@)=T(L-1,+@)+2:NEXT JSNEXT ESNEXT Y 
7702470) =42:°7(52,0)=422T(5010) =42 

0440 FOR J=1 TO 1LS°READ N(.J,@) NEXT J:F 
RK J=1 TO i2:READ N(.J+1)°NEXT J 

@45@ FOR J=1 TO 1LS:READ N(OJ+2)2NEXT J 

0440 REM **#(abovedset up n( »1) =top cha 
romos #2) = bottom 

Q@470 REM set up keys to produce the note 
S$ 

Q4250 NIS="1LE545475702-"" 

0470 REM print Prompts 

9700 L=-4:FOR J=1 TO 13:L=L+5:CuURs b,14: 
R=L1+J#2°PCG:PRINT'S"SALS (sk eR Ds" s 
TUR LeiStPRINT"?' 5 AL1S (sk 4+1eK41) 3" 
"SsCuR Le l&s NORMALS FRINT' = "SNis(3J> 
Jds">"53NEXT J 

@710 CURES GreiStPoG:FRINT'* "3 

9720 NORMAL SCURS t+ 13 

Q720 FRINT"Move cursor: <» 3, BE-SF, ESC 
Flay: LN-FD, RIN Delete: DEL" 

@74@ RETLIRN 

Q750 REM Chars are Ole Fr 5,4 +5 rb 7rSe%ea 
rberceodverfraeheiriokslememrOrPraeres 
rtrieVews Neve Ze terme” 

Q@740 TATA FA, 2405 FOS, 134A, 1B, BSS, 12 
» SE, She Lie, 255+ 224, 140, Be, B2 


eset 
» wooed 


0770 TATA 254, 147, 17+ 179 255, 17, 17% 
13, 145, 255, S, Sy 1354, 200, 200, 2 
40 

O720 DATA O@» O» O» Is 
, 255-9 Ls Se Fe 14) 255 

0770 DATA Be, SA, 2 ? a 
roy S55, OF Or Br Fe Fo GB 

0500 DATA @r O@ Or @» O» SSS, Or Or O» @ 
, 25, Be Le, 24, 24, 25S 

@510 DATA 24, 2S, 14, 3, B55, Or O@ @, Q 
, S557 Or Or Or OF O» @ 

O3S20 DATA Or 0+ O+ O+ OF BSS, Or Or O, @ 
» 255, 152, 4, 40, 40, 25S 

O@STO0 OATA Or Or 4) 1345 BSS, Or Or Or O, 
cote Or Or Oy Oy Oy @ 

Q340 DATA Or Or Or O+ Or F5S+ Or Or O» Q 
r 2S, Or Or OF O» BSS 

Q350@ DATA Or Or Or OF FES, Or Or Or Oy = 
—=19 OF Or Or Or OF @ 

QO340 DATA @» O@+ O O Oy SSS, 1s to tr | 
t coe Ley Le Pe ds 255 

@370 DATA 1+ 1» to de S55, tr tr Lr Ly @ 
sae Oy Or Or Oy Oy @ 

O20 DATA Or Or OF Or OF BSS, OF O, BE, 
145 255, 4) 14, 2S, Sh, BSS 

Os7O@ DATA 48, 14, Sy Le, BSS, SO, 45, 24 
, Ay SSS, Or Or Or Or OF @ 

0700 TATA @+ + O» Or Or BES, QO,» @> O@, @ 
» 25, OF Or 4 4, BES 

@v1@ TATA 4+ 4, 4, 4, BSS»y 4, 4, 4, 4, 3B 
S39 4) 4, 114, 252, S55, 120 


@VEO DATA O@+ O» + Or Or BSS, Oy Oy Or O 


Microbee Sp 


OP730 DATA 4+ 
O@740 DATA @, 
@2750 DAT 
9740 DATA Q» 
0770 DATA 4,» 
O750 DATA @, 
0770 
1000 DATA @» 
1010 DATA 114» 
1620 DATA 4,» 
1030 DATA 252 
1040 DATA 0» 


1050 DATA 4, 


NOTES: 
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4, 4A, 255 1040 DATA 0+ 


4, 4, 255, 4, 4, Ar 4, 2 752, 255, 


aot al F 


fa2er S52, 120, OF @ 10670 DATA 4» 
O» + @» BES, Or Or 4, 4 Sas 4, Ay . 

4, 4, 255 1020 TATA O@+ OO» O» OF OF SSS, 120, B52, 
4, 4, 255, 4) 4, 1146, 35 e529 Lib» 


120» Or OF O+ @ 1070 DATA 4; 


> OO OF 255+ 4, 4s 4, 4 Fy Oy O» 


4, 4, 255 1100 DATA @» 


4, A, SSS, 114, BSe, 252 14H» 4, Ay 
Or Or Or Or OF @ 111@ DATA 4, 
@, 4s 4, SES, 4, 4, 4, 4 Soe Or O» 


4, 4, 255 1120 DATA @» 


114, 252, 255, 252, 120, 4, 4, 4, 
Or Or Or Or O @ 1120 DATA 4, 
4, 4, 4, 25S, 4, 4, 4, 4 =e O» O» 


4, 4, SSS 1140 DATA @; 


coer 25S, 1205 PS5S-+ Or @» Se Or O» 
Or Or OF Or Oy @ 1120 DATA @, 
Or Or Or 255, Or Or Oy @ Or Or O» 


120, 252, 255 1140 REM ## 


Or, Or OF SIE, Or Os OO 


lata 


S52, 252% 124, 255 


4, 4, 255, 4) 4) 4, 4 2 DATA 1 
4, 0, @ 


data to set 
114+ 4, 4, 255, 4, 4, 4, 1170 DATA (@, 
4, 4, 4, 4, 4 SOre,21L,23 


YVellsltartS,14.518, 
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DIAMOND MINER 


This program lets you _ play 
Diamond Dan, a diamond miner. 
Your boss wants you to mine for 
as many diamonds as possible, 
and to speed you up a bit he has 
imposed a time limit within 
which to collect individual 
stones. The limit starts at 14 
seconds, but if you get too fast — 
picking up a diamond in, say, five 
seconds— the boss may lower 
your time limit. 

You must also be careful to 
collect only the white diamonds: 
the green ones are booby-trap- 
ped and will cost you a life. Watch 
out for rocks, as they will also 
reduce your life expectancy. The 
worst of all dangers are the walls: 
bumping into them will kill you 
instantly. 

Added to all these dangers are 
red crosses which, when landed 
on, will move you randomly to 
another area of the mine. 

With this game you can plug 
the joystick into either port. If you 
don't have a joystick, use the 
following keys instead: 


A = left 
D = right 
W = up 
X = down 


The codes listed below sub- 
stitute for graphics characters on 
the Commodore. 

(C/RT) = Cursor Right 

(C/DN) = Cursor Down 

(RVON) = Reverse On 


(RVOF) = Reverse Off 
(PURP) = Purple 
(LRED) = Light-red 


(LGRN) = Light-green 
(LBLU) = Light-blue 
(YELO) = Yellow 
(CLR) = Clear 
(HOME) = Home 
Paul Vandenberg 
Cabramatta NSW 


REM DIAMOND MINER BY PAUL VANDENBERG 
POKE53289, 9: POKE53281,9:PRINT"(PURP}" 
CH=5:LY=28:LX=28 

TIS="GBGGID": TL=99D 
D$="(C/DN}":RB="(C/RTI" 

JS=56329: GOSUB2999 

S=54272: FORZ=STOS+24: POKEZ, 9: NEXT: POKE 
S+5,9:POKES+6, @: POKES+24, 15 

198 PRINT"{CLR>"$ 


Ir 


aug fw 


181 PRINT" (RVON} 
? 
182 FORF=1TO2@:PRINT" ";SPC(38)3" "3 :NEX 
TF 
193 PRINT" 
CRVOF >" 
185 CL=1:FORF=1TOS: X=INT(RND(@)¥38) +1: Y= 


INT (RND (9) ¥20) +1:°C=998: GOSUB1 9999 
196 NEXTF 
169 FORF=1TO15: A=PEEK (197) >J1=PEEK(JIS):J 


_ 2=PEEK (JS+1) °:POKES+4, 32 


119 POKES+1,5@0: POKES+4, 129: POKES+9,@: IFT 

I >=TLTHENGOSUBSS9SGE 

111 CL=@:C=32: X=LX: Y=LY: GOSUBIOBOGO: IFA=9 

ORJ1=1260RJ2=254THENLY=LY-1 

112 IFA=230RI1=1250RJ2=2S53THENLY=LY+1 

113 IFA=190RJ1=1230RJ2=251THENLX=Lx-1 

1194 IFA=180RJ1=1190RJ2=247THENLX=LX+1 

115 P=LY#4@Q+LX:>L=PEEK (55296+P) 

116 POKES+4, 32: IFL=4THENSSSS 

117 IFL=6THENCH=CH-1:POKES+1,8:POKES+4, 3 

3: FORZ=1TOSO:NEXTZ: IFCH=OTHENSOSS 

118 IFL=1THENPT=PT+19@8:CT=TI:TIS="999909 

";GOSUBS996: IFCT >369THENTL=TL-2@6 

119 IFL=STHENCH=CH-1:POKES+1,8:POKES+4, 3 

3° FORZ=1TOSS:NEXTZ: IFCH=O8THENSDOS 

120 IFL=19THENGOSUBS@5@4:LX=INT (RND (8) #38 

Y+1:LY=INT (RND (9) #20) +1 

121 CL=14:C=42: X=LX: Y=LY: GOSUB1G9IGA 

122 IFTIS="G@G89G15" THENGOSUBRSGS 

129 PRINT" CHOME} (RVONDCPURPD "TIS; TAB(19) 

+"SCORE";PT;TAB(26); "MEN LEFT";CH 

129 NEXTF 

13@ CL=1:FORF=1TO1: X=INT(RND(O) #339) +1: Y= 

INT (RND (9) #20) +1:C=99: GOSUB1GOGG 

131 CL=6: FORF=1T04: X=INT (RND(O) #38) +1: Y= 

INT (RND (@) #26) +125 C=224: GOSUB19GG9G: NEXTF 

132 CL=5: X=INT (RND(@)#¥38) +1: Y=INT (CRND(G) 

¥26)+1:C=99: GOSUBI1SSGA 

133 IFRND(9) >. 8THENCL=1@° X=INT (RND(@)¥38 

+15 Y=INT (RND(@) #29) +1: C=86: GOSUB1IGAIGA 

168 GOTO199 

29989 REM TITLE PAGE 

2061 PRINT"{CLRi"5 :FORZ=1 TOS: PRINTDS; : NE 

XTZ 

2O9G2 PRINT"{PURP?"; 

2983 PRINT"{RVON} “WC/RT} {C/RTIFP WC 

IRTIWMC/RTILC/RTIFPLC/RTIP UC/RTIIVC/RT 

{C/RT} {C/RTF WW 

29849 PRINT" {RVON? {C/RT} (C/RTGCC/RTG CC 

JRTFCC/RTF CC/RTd (C/RT? CRVOFI\/CRVON? 
{C/RT}? (C/RT}? (C/RTF CRVOF INC RVONICC/RT > 
{C/RT} {C/RTF " 

2OOS5 PRINT"{RVON}D C(C/RT C(C/RTIICLCC/RTS CC 
/RTICC/RTY {C/RT} CC/RTSCC/RT (C/RTF 
{C/RT} (C/RT3 (C/RTICRVOFF\NCRVON? (C/RT} 
€C/RT} " 

2O9G86 PRINT" {RVON; 


{C/RT} C(C/RTFCIC/RTF CC 


JRTICC/RT? CC/RT? {C/RT) (C/RTIKC/RT? CC 
/RT? {C/RT} (C/RT? {C/RTICC/RT? (C/RT? 
C/RT> " 
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2087 PRINT" {(RVON} {RVOF3P CRVONSG {C/R 

T3} {C/RT} C(C/RT}? CC/RTILC/RT} LC/RTICRVO 

FI“MKRVON} (RVOFIRPIC/RTI{RVON? {RVOF} {(C/ 

RTI{RVQFIS (RVON> {RVOF 3F" 

2608 PRINT: PRINT 

2O89 PRINTTAB(19G) 3; "{RVONIVRC/RTII{(C/RT IFS 

C/RT > (C/RTIWCC/RTI{C/RT} (C/RT3 {C/ 

RT} ™" 

2916 PRINTTAB(10);"{RVON> 
{C/RTILC/RT} CC/RTILC/RTY 
{C/RT}3 (C/RT CC/RTICLC/RTICC/RTS 

2611 PRINTTAB(1@6) 5; "{RVON} 

C/RTFIC/RTS CC/RTIICC/RT 

VON? (C/RT> CC/RTILC/RT FY 

Z2O12 PRINTTAB(1@9) 3; "C(RVON? 

C/RTFLC/RT (C/RT II C/RT 3 
JRT SC/RTILC/RTICC/RT GF 

2SAis PRINTTAB(19)3; "CRVON} 
C/RT 3 {C/RT} (C/RTILC/RT ILC RVOF DN 
By {C/RT? (C/RTFCRVOF GS" 

2@15 FRINT:PRINT"{C/RTICC/RTILC/RTSCC/RT 
I(C/RTICILGRNIBY PAUL VANDENBERG" 

2416 PRINT: FRINT"(LREDIFRESS A KEY TO ST 
ART{PURP: " 

2017 GETAS: IFAS=""THEN2O17 

2B12 RETURN 

FO@AG POKES+1,5@: POKES+49,17:POKES+9,16°F0 
RZ=1TO2H:NEXTZ 


{RVOF7\/C(RVON> 
{RVOF INCRVON? 
{C/RT > 


{C/RTIL(C/RT} C 
({C/RTICRVOFINCIR 
{RVOF >" 

{C/RTFCIC/RTF C 
{C/RTFCC/RTG CC 
{RVOF INCRVON?" 

{C/RTIIC/RT? ¢ 
{RVON 


SOG1 POKES+1,60:POKES+4, 17: POKES+4, 16:FO 
RZ=1TOZ2O:NEXTZ 

5@G2 RETURN 

S@S@ FORF=4@TO7GSTEP2: POKES+1,F:POKES+4, 
33:NEXTF:POKES+4, 32: RETURN 

7999 REM NEXT LEVEL MARKER"" 

Q@aa REM TIME UP 

SOG1 PRINT" {HOME} "3 :FORZ=1TO23:PRINTDS$;: 
NEXTZ:PRINT"{PURP) YOU WERE A BIT SLOW" 
8O92 POKES+1,6:POKES+4, 33: FORZ=1TO2GOG:N 
EXTZ:CH=CH-1: IFCH=O9THENS9BE 
SGG3 PRINT" {C/UP} 
E}":POKES+4, 32 

8884 TI$="GSGGGO" : RETURN 

8588 RETURN 

9988 PRINT"<{CLR}YOU’RE DEAD!!!" 
981 GETAS: IFAS< >" "THENS9@1 
9992 PRINT"{LBLU} YOU’ VE ACCUMULATED A TO 
TAL SCORE OF" 

9893 PRINT: FORZ=1T026: PRINT" {C/RT}{C/RT? 
{C/RTI{C/RT}{(C/UP)(YELO} "3 PT! FORG=1TO49: 
NEXTG:PRINT"{C/RTI{C/RT(C/RTICC/RTI (C/U 
P><(GRN?"3PT 

9984 POKES+1,5:POKES+4, 33: POKES+4, 32 
9985 FORG=1TO38:NEXTG: NEXTZ 

9996 PRINT:PRINT"{LGRN}WOULD YOU LIKE AN 
OTHER GO? (Y/N)" 

99287 GETAS: IFAS=""THENSOS7 

9998 IFAS="Y"THENCLR:GOTO1L 

9989 END 

19BBB P=YX4G+X: POKEP+ 1924, C:POKESS296+P, 
CL:RETURN 


{HOM 


Commodore 16 


COMPATIBILITY 
ANALYSIS 


The program displays a com- 
patibility table for two people 
based on the biorhythmic cycle 
theory. The table consists of 
physical cycle, sensitivity cycle 
and cognitive cycle compatibility. 
Although it was written on a 
C16, the program should also run 
without modification on the Plus 
Four. 
Mark Wilkinson 
Heyfield VIC 
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REM REXRREREEREREREAEEAE DRE OEE 
REM # COMMODORE 16 # 
REM * COMPATABILITY AHALYSIS # 
REM * AUTHOR 4. WILK IMSOH # 


35 REM €HRERERRRREREREREERERER ERS 


REM 

DIMAL © 369, 51030) MEC12)9, 0E¢7>,AC1lS3 
COLORS, 3.2: COLOR4, 6.3 
FORT=17T012:READAC I> > NEXT 


DATAG. 31,559.98. 120.151.151.212, 243. 273, 364, 33 


GOSUBSbE 

‘= FOSS"HHHH. HH" 

Wa'y'+ 1 

INPUT" SQISHAME OF PERSOW 1...... 4" she 
INPUT"SBIRTHDAY COD Mee ees ae DY 
E1=M:Fi=0:G1="" : GOSuUBeoG 

22=T:K1l=J+1 

THPUT SISGHAME OF PERSOH 2...00 2M SE 
IMNPUT"GEIRTHDAY COD. Me yyy. aD 
E2=M: D2¢=D:G2=": GOSUBEBeE 
PZ2=ABS¢( 22-T3  K2=J+1 

PRIHMT" I": 
PRIHTTRECS3"S., 
PRIMNTTABCS)" COMPATABILITY ANALYSIS ay" 
PRINTTABCS3" * a 
FRINT TABCC46-LENCWE) 3-29 5H 

PRIHMT TABCC4H6—-LEHC HEI 3-295 4%) "a" 

FRINT 

PRINT "HS": &"; 

J=K1:GOSUBPS6: PRINT". "s 

M=E1:GOSUBYSs 

PRINTF1". "G1 

PRINT "atl oo ere 4 

J=K2:GOSUB’9@: UPRINT" 9"; 

M=E2: GOSUB’Sss 

PRIHNTDA". "G2" Bia" 

2=Pe 

PS=ABSCINT CCC 223 5-INT (acess #23599 
SS3S=ABSCIHT (C2 2e5- ple acon acuneean 


MH CS=ABSCIMT Ce C2/s3a- IH C2359 se s3 


PS ABS! 1G4-—¢( (2eP SOR Le 235 
SS=ABS¢C 1BB-C CSRS 35 580 10O28995 


4 CS=ABS« 1B66-¢ SeCS IC 1BO SS) oS 


PRINTTAS( 3)" it" 
PRIHTTABCIO2"SFHYSICAL.....c". 


H PRINT USING FOS; FS 


PRIHTTABC IGS "S5ENSITIVITY. .&": 

PRINT USIMG FOF,S5 

FRIHTTABS 1@>"SCOGHITIVE.... 8": 

PRINT USING Foe; cs 

PRIWTTAEC 9) "te" 
AS=¢FPS4+5 tC 2S 

PRINTTABC 16> "@AVERAGE....00ues 


4 PRIMT USING FOF: AS 


PRIHTTABCS 3 "ti" 
FRIHT" setae y" 


PRINT" PRESS AMY KEY FOR AMOTHER AWALY'SIS 


GETKE'' At 
PeTHT "O'S > RUM 
Wl="-1ee6 


a WI=INT CYL 44) 
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Commodore 


G2=INT Coie 255 

O32 INT 69142605 "483 

K=0 

IFG1 #45071 THEE 34 
TFU2#1b0<>'s 1 THENS Se 

TF Q3#406—-2662>'1 THEMES 

K=1 

T3366 087 1401 -Ge+0S—k 

T=T+H¢ f19+D-—1 

IFMASTHEHM SS 

T=T+k. 

IFIHT Yl stone 1 “4 THEM Be 
TFMSSTHEHMY 6a 

T=T-1 

J=T~eR IIHT CT 9 

RE TUR 

PRINTMECMos oRETURH 
PRINTIA@¢ Jo5 > RETURH 
FORJ=17T012:REARDMS¢ I> > HEAT 
FORJ=1707?: RERDDE* Jo: HERT > RETURH 
DATAJAN. FEB. MAR. APR MAY) TU. TUL) AUG. SEF 
DATAOCT. HOY. DEC 
DATAMEDHESDAY. THURSDAY. FRIDAY. SATURDAY? 


02 03 Of 00 O82 om mb oD A oT J odo Os oO oh Oy 


WME GUIANA Me Sips moe ans 
Coe Ss Ge Ge CG Gs Go |) i Go ee ee Ge oR oy Se Ge fo Gs ma 
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Compatibility Analysis continued. 


DATASUMDAT . MOHD. TUESDAY 
REM 


REM COWTROL CODES 

REM IH THIS LISTING 

Pee eee eosin eeiai ee 

REM °C LEHR: 

REP "8 DOr 

REM "Gs Bill 

REM "al Fir: 

REM "ad IS bAL 

REM "hi = GRH 

REM "Wi FLASH 

REP "a FLASH OFF 
aaa a 


hou uw ov 


Hoe UW 


NOTES: 
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Microbee %yp 


me. 


20090 GOTO 700 
MOTORBIKE TRIALS 90095 CLEAR: RESTORE 

00100 F=63488+49K16 

00110 FOR A=F TO F+16*8-1 


Motorbike Trials simulates a rider 00120 READ B:POKE A,B 
travelling a twisting 100 kilometre OO130 NEXT A 
course 00140 DATA 36, 255, 255, 255, 60, 36, 189, 189, 126, 126, 60, 60, 189, 255, 189, 24 


Q0150 DATA 15,15,15,15,15,15,15,15, 15, 15,15, 15,15,15,15,15 


The rider starts at the top of the 00160 DATA 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240 


screen facing down. The ‘A’ key 00170 DATA 0,16, 16, 16, 40,546, 124, 108, 186, 68, 56, 16, 16,16, 0,0 
moves him to the player's right OO1BO DATA 0,0,1,2.4,30, 46, 73, 50, 28, 32, 32, 64, 128,0,0 
and the ‘\’ key moves him to the 00190 DATA 0,0, 128,64, 32, 32, 124,114,73,42,20,4,2,1,0,0 
player's left 00200 DATA 8,137, 73, 34, 20, 93, 46, 86, 28, 99, 22, 226, 26, 41, 68, 32 
oa 00210 DATA 15,15, 15.15, 240, 240, 240, 240, 15, 15,15, 15, 240, 240, 240, 24) 
Every few kilometres the rider 00220 CLS: Rei:Nezz.b=5 
moves toward the bottom of the 00230 GOSUB 520 
screen and is followed by another 00240 IF RND#1<.2 THEN LET R=INT(RNDX3) , 
rider (you always control the front 00250 K=K—-1+R: Z=0 


00280 IF FEEK (258)=28 THEN LET N=N+1:Z2=2 ELSE IF FEEK(258)=1 THEN LET N=N-1:Z=1 


one). It 1Ou rider reaches the 00290 PCG: FOKE 61440+ (Q0%64) +N, 180+Z: NORMAL 


bottom of the screen, you've OO3S00 IF K>20 THEN LET K=20 ELSE IF K<-29 THEN LET K=-29 

completed the course — it’s very 00320 IF RND*2<.112 THEN 460 

hard! OO33O PRINT TAB(3S0+K) :2:PCG:P RINT" 22": :NORMAL: PRINT SPC(E) 3:PCG:PRINT"33": NORMAL 
Good luck .. and watch for 00340 IF PEEK (61440+ (64%Q) +N) <180 AND PEEK (61440+ (64%Q)+N) >175 THEN 370 


00350 S1=Si+i:IF S1=100 THEN GOSUB 800 
00360 GOTO 240 , 
Ken Rowe 00370 POKE 61440+(64%0)+N,183:FOR I=1 TO 22:IF RND*1<.55 THEN OUT 2,59:0UT 2,65: 
Dernancourt SA NEXT I ELSE NEXT I 
OO3BO PLAY 0,13 22.5:519.5322, 5219, 5322, 5219,5 
00390 F=Qk100+INT(S1):CURS1:PRINT"YOU COMPLETED “: INT(FLT(F)/1500K100):" Km OF A 
100 Km COURSE."\"AND PICKED UF ANOTHER “;Q;" RIDERS"\"1] ANOTHER GAME"\"2) END" 
00400 ALS=KEY$:IF A1L$="" THEN 400 
00410 IF A1$="1" THEN 95 ELSE IF A1$="2" THEN PRINT\"BYE":END 
00420 GOTO 400 
00430 PRINT TAB(30+K) 3: PCG:FRINT"22"s sFORI=1 TOE: FRINT"8"3 sNEXTI: PRINT" 33": NORMAL 
00440 PLAYS. 525.587 Ee ee ee TECURSIZPRINT" YOU HAVE COMPLETED THE 100 Km 
COURSE WITH 14 RIDERS"\"THAT IS AN EXCELLENT ACHIEVEMENT! "\"1] ANOTHER GAME"\"23 
END": GOTO400 
00450 END 
00460 IF RND*¥1<.25 THEN 490 
00470 W=INT (RND* (FLT (E)) +1) SPRINTTAB(30+K) $2: PCG:PRINT" 22": sNORMAL: PRINT SPC (W-1) 
72:PCG:PRINT"1"3 :NORMAL:PRINTSPC (E-W)  : FCG: PRINT"33": NORMAL 
00480 GOTOZ40 
00490 IF RND*1<.5 THEN LET E=E+1 ELSE LET E=E-1 
oo500 IF E<4 THEN LET E=4 ELSE IF E>8 THEN LET E=8 
00510 GOTO 330 
00520 NORMAL: FOR 1=1 TO 15:IF I=2THENS70 ELSE PRINT TAB(30)::PCG:PRINT"22"3 sNOR 
MAL:PRINT SPC (5) ::PCG:PRINT"33":NORMAL:NEXT I 
00530 POKE 61440+N, 180 
00535 CURSS,2:PRINT"<== ‘A’ "::CURSS4, 2:PRINT"‘\? ==>"::CURSIS, 16 
00540 FOR I=1 TOS:FOR D=1 TO 25:0UT 2,59:0UT 2,65:FOR G=1 TO D 
00550 NEXT G:NEXTD:NEXTI 
00560 RETURN 
00570 PRINT TAB(30)3:FCG:FRINT" 228888822"sNORMAL: NEXT I 
00700 CLS:PLAY 16, 2:16,2:13,4316,4318, 23 18,23 16, 43 18,43 18,43 20, 2: 18, 23 16,2216, 4 


slow-moving cars. 


00710 INPUT " INSTRUCTIONS ? "3T1$% 
00720 IF T1$="YES"ORT1$="yes"ORT1$="y"ORT1$="Y" THEN7SOELSELOO 
00730 CLS: PRINT" *%*k MOTORBIKE TRIALS *x"\" 


(22999952325 25 o © SAN 
00740 FRINT" You are set a difficult 100 km course."\"Along the way you are joi 
ned by more riders."\"You will lead these riders through the winding corners" 
00750 FRINT"And past slower cars."\\"The direction of the motorbike is to the bo 
ttom of the screen"\"‘A’® moves the bike to your left & ‘\’? to your right." 
00760 FRINT\"The road changes width as well as direction."\\"If you can pick up 
another 14 riders and reach the bottom of "\"the screen, you have completed the 
course (very hard!!)" 
00770 INPUT" HIT <<RETURN>> TO START": T4$ 
00780 GOTO 100 
QO0B00 Q=Q+1: IF FEEK (258) =2B8THENLETN=N+1 ELSE IF PEEK (258) =1 THENLETN=N-1 
00810 S$1=0 :IF Q=15 THEN 430 
00820 RETURN 


Microbee %p 


90 


CLOCK 


Here is a program for all the egg 
burners among you. Just set the 
clock and alarm for perfect eggs, 
or use the stop watch for timing 
those three-hour chess games. 
The letter ‘S’ will stop and start 
the stop watch; press ‘R’ after the 
watch is stopped to return to the 
menu. 

The program is quite easy to 
convert to other machines, given 
that ‘Lores’ and ‘Hires’ select gra- 
phics modes for the borders 
around the outside of the menu 
and the introduction. All ‘Plots’ 
can be left out, or your own 
computer's graphics commands 
may be substituted. CLS clears 
the screen. The KeyS is the same 
as InkeyS on most other mach- 
ines. The rest is fairly universal. 

Jeremy Fenton 
Lismore NSW 
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90190 REN HHEHHEHEEHHEEEEHEEEHE 
S8116 REM #4 CLOCK BY J. FENTON 
69128 REM #£ FOR PUBLIC USE 
G9138 REM #4 LAST UPDATE 2/3/85 
96149 REN HHHEEHEEHEEE HEHE 

99158 LET X=6 

OO160 REN HEHEHE INTRODUCTION HHHHHHHHEHEHEHEE HY 

98178 CLS 

99189 HIRES 

99198 PLOT 9,8 TO 9,255 TO 511,255 10 511,89 TO 6,8 

86268 PLOT 198,158 TO 5@,15@ TO 58,268 TO 198, 208 

69218 PLOT 128,268 TO 126,159 TO 178,158 

88228 PLOT 198,288 TO 198,158 TO 249,158 TO 248,268 TO 198,268 

99238 PLOT 319,286 TO 269,268 TO 268,159 TO 319,158 

66248 PLOT 336,288 TO 338,159:PLOT 338,175 TO 398,288: PLOT 331,176 TO 399, 158 
$9258 CURS 48,15:PRINT*PRESS **RETURN’’® 

99268 A3$=KEYS:IF AI$="" THEN GOTO 268 

99279 GOTO 728 

99208 REN HHHHHHHHEHHEEHHE SET CLOCK SHHHHHHHHEH 

98298 CLS 

GO369 CLSICURS 21,7: INPUT*ENTER TIME)-HOURS"H 

§9318 CURS 32,8: INPUT" -HINUTES'N 

89328 CURS 32,9: INPUT*-SECONDS*S 

99338 RETURN 

90340 REN HEHEHE CLOCK HEHEHE 

99358 CLS 

$9368 GOSUB 579 

98378 GOSUB 629 

99398 GOSUB 638 

98398 GOSUB 648 

9g48g S=S+! 

90419 FOR AS=1 TO 31 STEP. 1987899 

66428 NEXT AS 

99438 GOSUB 648 

g0448 IF S(6W THEN 408 

90459 S=8 

68468 GOSUB 648 

60478 W=Htl 

99408 GOSUB 638 

90498 IF MCo® THEN 499 

90580 H=6 

G9518 GOSUB 638 

89528 HeH+! 

69538 GOSUB 628 

90540 IF HC13 THEN 498 

69558 H=! 

99568 GOTO 378 

89579 CURS 28,7:PRINT'HOURS MINUTES SECONDS® 


ttt 


VW 


POCKET PROGRAMS 


Microbee 4p 


889586 CURS 38, 15°PRINT"PRESS °’R’’ FOR MENU" 88916 LET 2=Z+1 

69396 IF Q=H AND K=M AND V=S THEN PLAY Lp LpQpLspQpdplpapaphpapasap apap aplplply) §=$88920 CURS 34, 8°PRINT Z 

66668 RETURN 86936 CURS 25,8: PRINT X 

66618 REM JHHAAHHEHHEEHET ALARA GHAR 98948 AS$=KEYS: IF AS$="S° OR A5$="s" THEN GOTO 978 

98628 CURS 21,8:PRINT H" ": RETURN 96958 IF Z=68 THEN LET Z=8: X=X+i: GOTO 879 

$6636 CURS 29,8:PRINT M" ": RETURN 86968 GOTO 898 

96649 CURS 37,8:PRINT S° “\ IF @=H AND K=M AND V=S THEN PLAY 5150525 lp0plslsisisl 98978 ASS=KEYS:IF ASS="" THEN GOTO 979 

89658 ASS$=KEY$S:IF AS$="R" OR AS$="r" THEN GOTO 728 66986 IF AS$="S" OR ASS="s" THEN GOTO 958 

$9668 RETURN 98996 IF AS$="R" OR ASS="r° THEN LET Z=8:LET X=8:60TO 726 
99678 REN JHHHAHHHHEEHEHHAs SET ALARN HAH 916868 GOTO 978 


SS68HCLS: CURSZ1,8:INPUT*HOUR )*30 

68699 CURS 21,9: INPUT*MINUTES )"3K 

69768 CURS 21,18: INPUT*SECONDS )*;V 

69719 RETURN 

89726 CLS 

90738 REN HHHEHHEHHHE MENU HEHEHE 
99749 LORES:PLOT 8, TO 9,47 TO 127,47 TO 127,8 TO 8,8 
99759 CURS 38,5:PRINT*MENU" 

89768 CURS 18,7: PRINT®SET THE CLOCK : S' 

69776 CURS 19,9: PRINT*’STOP WATCH =: W! 

99786 CURS 18,11:PRINT®SET THE ALARM: A’ 

69798 CURS 19, 13:PRINT'START CLOCK : C" 

60968 AS$=KEY$:IF A5$="" THEN GOTO 969 

99618 IF A5$="S" OR AS$="s" THEN GOSUB 369 

98828 IF AS$="a" OR AS$="A° THEN GOSUB 689 

$9038 IF AS$="C* OR AS$="c" THEN GOTO 359 

99048 IF AS$="¥" OR ASS$="w"" THEN GOTO 978 

99059 GOTO 728 

99068 REM HHHHHHHHEHHHE STOP WATCH SHHHHHHHHHHE 
98878 CLS 

9988 CURS 26,6:PRINT® MINUTES SECONDS *:60TO 999 
68898 FOR P=1 TO S@9:NEXT P 

68998 ASS=KEY$:IF AS$="S" OR AS$="s" THEN GOTO 979 


a deep breath, | : op Brands Review 
_ and sian —— ee * IBM's AT & JX, AT clones 


* Commodore Amiga 

* Latest Microbees 
* Portables 

* Games Machines 

* Best Buys! 


Your Computer has 
just taken the hassle 
out of buying a 
computer — —7 


sor vou, SOMPUTE | 

Get Your Bea ie Cuenie Or simply send $4.50 plus $1.50 post 
Seg and packing to The Federal Publishing 

Co, PO Box 227, Waterloo 2017 NSW. 


Available at your Newsagent 
now! 
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VZ200 


NUMBER 
SEQUENCE 


This program prints various se- 
quences of numbers, each ending 
with a blank. You must enter the 
next number in the sequence — 
the computer indicates if your 
entry was correct. 
A series of ten questions is 
asked, then your score is given. 
Because the program is written 
in standard Microsoft BASIC, it 
should be easily transported to 
other computers. The random 
number statements in lines 120- 
140 may need _ modification, 
according to your particular ver- 
sion of BASIC. 
lan Thompson 
Collaroy Plateau NSW 
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mame (AD Ly Pj Re 


{1S 


re ee SN EN SIRNA EL LRA 


ee eee ee ee ee ee 
# NUMBER SEQUENCE * 
‘* FOR THE UNEXFANDED V2-2@@ x 
‘“%# TAN THOMPSON - COLLAROY > 
"HEHEHE FEE SE TE IE JE TE HE SE SE HE EE JE SE FE FE SE IE aE IE IE HE 28 46 HE 


CLS: PRINT@104, "NUMBER SEQUENCE" 
FRINT@GS25,"IAN THOMFSON,COLIAROY" 
PRINT@485,"FRESS ANY KEY TO START" 


IF INKEY#="" THEN 20 
IF INKEY#=""" THEN 20 
CLS:PRINT" NUMBER SE@GUENCE":FRINT 


PRINT"THIS FROGRAM WILL FRINT VARIOUS" 
FRINT'"SEQUENCES OF NUMBERS, EACH 
PRINT"ENDING WITH A BLANK (--~--)." 
FRINT"WHEN YOU SEE A °7'°, TYFE IN THE" 
PRINT"NUMBER THAT YOU THINK THE " 
PRINT’ COMFPUTER MIGHT HAVE FRINTED IN " 
PRINT"PLACE OF THE RBLANE." 
PRINT 
F’ RINT 1! 36 26 46 He 2G He HE FE Ee HE HE He HE EE ee 
LES R= 
LET W=@ 

FOR I=i T0 1@ 

FRINT"PROBILEM"; I 

LET A=INT (1@*#RND (Q)+1) 

LET R=INT (1@#RND(@) +1) 

LET G=RND( 2) 

IF ASB THEN 285 

IF G=1 THEN 170 

IF G=2 THEN 210 

IF G==2 THEN 250 

LET X=2#A+3#E a 


PRINT As" "SPs", "SAtB","SAtSeBs", ~--- "5 A 
INPUT Y of 

GOTO 41@ 

LET X=A#A*BR# BRR 

PRINT As","sBs","sA*Bs","sB¥AeRs ", -~---'"'3 

INPUT Y 

GOTO 418 

LET X=-RB 

PRINT Ag", "383%, "3B-As","5-Ap%, —=—~"5 
INFUT Y 

GoTa 41@ 

IF G=1 THEN 2@a 

IF G=2 THEN 240 

LET X=A#5S 

PRINT Ag", "s2"AG", "Ss EHAR", NE 4HAR, ---~"E 
INPUT Y 

GOTO 410 

LET X=16#A 

PRINT Ag", "s2#Ar", "S4¥AS", "EBRAS, —- =" 
INPUT Y 

IF X=VY THEN 459 

PRINT"NO: THE COMPUTER’S SEQUENCE HAS ":x;"." “1 


LET W=W+1 LY 
GOTO 470 

PRINT" THAT ’S RIGHT!" 

LET R=R+1 


PRINT mes oe 
NEXT I 7 


BOUND 15,5 / ~ 


yy 


PRINT: PRINT 's222e 2222220222225 52e5e50eeeee2e=0"' 
PRINT" FRESS <SPACE> FOR ANOTHER SET OF"; 
PRINT" QUESTIONS." ~ 
AF=INKEY#: IF AF «<> " "THEN S30 

RUN 


PRINT"SCORE: "3R3" RIGHT,"3W;'" WRONG / 
~ 


TRS-80 


MAILIST 
Mailist is a mailing list program 
for TRS-80 Models I, Ill and IV 


with 16 Kbytes of RAM. It stores 
up to 250 names and addresses 
on cassette tape for later retrieval 
and printing. 

For those of you who have ma- 
chines with 48 KBytes of RAM, a 
version for up to 1100 names and 
addresses with a built-in lower- 
case driver is available for $10, 
cassette supplied. 

Both programs are menu-dri- 
ven and a help sequence is in- 
cluded in the program (function 
8). If you have any questions or 
wish to purchase the 48 Kbyte 
version, write to David Minehan, 
64 Young Road, Lambton East 
2299. 

David Minehan 
Lambton East, NSW 
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10 ’ MAILIST. 

20 ’ PROGRAMMER: DAVID KEITH MINEHAN. 
30 ’ SYSTEM: TRS-88/SYSTEM-68. 

42 ’ RAM 16K. 

3@ ’ LANGUAGE: BASIC. 

60 ’ PROGRAM DESIGNATION: BUSINESS. 
78 ° 

8@ ° PROGRaM DESIGNED TO TAKE NAMES, 
90 ° ADDRESSES, AND PHONE NUMBERS & 


108 ’ STORE THEM ON CASSETTE-TAPE 
11@ ’ DATA FILECS>. 
128 ’ 
220 CLEARSS@O' CLS ' POKE 16396, 23 
'DIMNS®C 250 0, ROC 250 ), ABC 258 >, P&C 258) 
230 
PRINT TABC 30); "MAILIST" PRINT! PRINT: 
240 
PRINTTABS 10 "CREATE FILES). cccccucccacencccvceed” 
250 PRINTTABC1O"VIEW  FILECS ss ccucnvescccescncesuve 
260 PRINTTABC 18 >"UPDATE FILECS >). ccnesenccecenvsensnesd™ 
270 PRINTTABC 1Q>"SAVE  FILECS). pccccsceccsccencsscsecd™ 
280 PRINTTABC10>"CALL  FILECS). sw ccc cccnvessessvssee” 
299 PRINTTABC 18>"VERIFY FILECS).ccerencccscncvceseserO” 
360 PRINTTABC 1Q)"PRINT FILECS).ccecccncnccvcccuceeser 
318 PRINT TRBC 103" HELP i6i.n6cs eb ws oes éeiewse senses eesaO” 
320 PRINETRES 10 2! QUT iniwseeetne 6 bee eis e wesw ecwes So 
338 PRINT PRINTTABC 18>"WHICH FUNCTION DO YOU WISH TO EXECUTE") + INPUTO 
340 ONQGOT0410,510,618, 710,810,910, 1018, 1118,9999 
358 CLS:GOTO23@: * XXXMENU ENDKXK ’ | 
410 CLS ' INPUT"WHEN READY, HIT <ENTER> (TO CLOSE FILE TYPE 9999 FOR NAME >";x:CLS 
420 FORI@=1T025@' PRINT PRINT"ENTER NAME (LAST FIRST, NO COMMAS PLEASE >" 
438 PRINT"THEN HIT THE <ENTER> KEY") ' INPUTN@C I > 
440 IFNS< I ="9999"THENP 1 =] 'GOT0490 
445 PRINT"ENTER NAME OF REPRESENTITIVE (<ENTER> FOR NIL)" 
446 INPUTR®&< I> 
4350 INPUT"ENTER STREET NUMBER & NAME (NO COMMAS >") AM I> 
460 INPUT"ENTER SUBURB/CITY & POSTCODE": P®< I) 
470 IFFREC X <250G0T0490' IFFREC X =25Q@THENPRINT :PRINT"FILE FULL" 
‘PRINT 
'\INPUT"PRESS <ENTER> TO RETURN TO MENU"; X 
'CLS 
'GOTO0230 
480 NEXT | 
490 PRINT"FILE CLOSED -- "“'INPUT"TO SEE MENU, HIT <ENTER>"sX:CLS:GOTO23@ 
318 CLS'FORI@1TOP1 'PRINTN@ I >! PRINTR@& I >! PRINTAS< I >! PRINTP@ I >! PRINT! NEXT 
320 PRINT: INPUT"TO RETURN TO MENU, HIT <ENTER>") ‘CLS: GOTO230 
610 CLS'PRINT"ENTER THE NAME FOR THE LINE YOU WISH TO CHANGE (NO COMMAS >" 
620 INPUTN® 
630 FORI@1TOP1 ' IFN@@N& I DGOTO67@ 
640 NEXT 
650 PRINT'PRINT"NAME NOT IN FILE -- ":GOTO690 
660 PRINT 
'PRINT"ENTER THE CORRECTED INFO. ' NAME, ADDRESS, PHONE --" 
670 INPUTNS&C 1), ROC I>, ROC 1D, POC ID 
680 PRINT'PRINT" THE FILE NOW READS: " 
'PRINTN&C I >! PRINTR&C I > PRINTAGC I >! PRINTP@€< I >! PRINT 
690 INPUT"FOR ANOTHER CORRECTION, TYPE 1, OTHERWISE TYPE @"sx 
‘ IFXe1 THENG1QELSECLS ' GOTO230 
718 CLS: 
INPUT"PREPARE CASSETTE + PLAYER, WHEN READY HIT <ENTER>"sX 


’ XKXMAIN MENUKXK ’ 


93 


b 
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POCKET PROGRAMS 


720 PRINT'PRINT"COPYING..." 

730 PRINT #-1,P1 

74@ FORI@1TOPL' PRINT #-1,N@8¢1 >, ROC 1), AMC I, POC T > NEXT 

75@ PRINT‘ PRINT"COMPLETE -- NOTE TAPE LOCATION PLEASE -- " 
‘PRINT 

760 INPUT"TO RETURN TO MAIN MENU, HIT CENTER" X 
(CLS: GOTO238 

618 CLS: 


INPUT"PREPARE CASSETTE + RECORDER, WHEN READY HIT <ENTER>")X 


820 PRINT" INPUTTING..." 
83@ INPUT#-1,P1 
84@ FORI=1TOP1! INPUT#-1,N@C I>, ROC I>, ABC I, PMC I> *NEXT# PRINT 


@5@ INPUT" INPUTING OF DATA COMPLETE. TO SEE MENU PRESS <ENTER>"; 


910 CLS'PRINT’FILE VERIFICATION! "' PRINT‘ PRINT 
920 INPUT"NAME FOR SEARCH") N®: PRINT 


938 FORI*1TOP1! IFN@=NS( I DTHENPRINT"FILE FOUND -~ ":GOTOS60 
948 NEXT 
950 PRINT"FILE NOT FOUND -- ":INPUT"PRESS <ENTER> TO CONTINUE") 


% CLS‘ GOTOZ30 
960 PRINT PRINTN®S< I > PRINTR@C I>: PRINTAS< [ >: PRINTP@ I D 
+INPUT"DO YOU WANT THE NAME PRINTED CY/N 5"; X8 
‘PRINT 
tT FX@2"Y"THENLPRINTN@( I >‘ LPRINTCHR®< 24 > LPRINTRSC TD 
tLPRINTCHR& 24 >! LPRINTAS® I > LPRINTCHR®&< 24 D 
‘LPRINTPSC I D 
976 INPUT"PRESS 1 TO CONTINUE, @ TO RETURN TO MENU" JX 
t IFX=1 THENS@BELSECLS ' GOT0238 


1005 CLS 
1910 CLS 'PRINT"PRINTING..."' PRINT 


Mailist continued. 


x'CLS'GOTO23 


1020 FORI=1TOP1'LPRINTN@®< I >‘ LPRINTRSC I > LPRINTASC I >: LPRINTPSC I D' LPRINTCHR®¢ 194 >: 


NEXT 
1030 PRINT'PRINT"PRINTING COMPLETE. "' PRINT 
1050 INPUT"TO SEE MENU HIT <ENTERD"jX 

‘CLS GOTO230 
1110 CLS'PRINTTABC 389) "HELP" ‘PRINT ' PRINT 
1120 PRINT"CREATE ADDRESS FILECS): 


THIS PROCEDURE ALLOWS THE USER TO CREATE THE FILES TO BE USED 
IN STORING THE NAMES, ADDRESSES, AND PHONE NUMBERS. " 

1138 PRINT 

1149 PRINT"VIEW ADDRESS FILECS): 


THIS PROCEDURE ALLOWS THE USER TO SEE THE FILES EITHER JUST 
CREATED, OR JUST TRANSFERED INTO MEMORY FROM TAPE." 
115@ PRINT: INPUT"TO CONTINUE, PRESS 1. ELSE PRESS @ TO RETURN 
TO MAIN MENU” 3x 

t IFX#Q@THENCLS ' GOTO238 

‘ IFX=1 THENGOTO1160 
1160 CLS'PRINT"UPDATE ADDRESS FILES): 


THIS PROCEDURE ALLOWS THE USER TO CHANGE THE FILES JUST CREA- 
TED ¢FOR TYPO’S), OR FROM TAPE, TO MAKE CHANGES TO PHONE NUM- 
BERS OR ADDRESSECS> AS NEEDED." 

117Q PRINT 

1180 PRINT"SAVE ADDRESS FILE(S): 


THIS PROCEDURE ALLOWS THE USER TO SAVE THE FILECS) JUST CREATED 


OR THE CHANGES JUST MADE. " 
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TRS-80 Mailist continued. 


1198 PRINT 
1200 PRINT: INPUT"TO CONTINUE, PRESS 1, ELSE PRESS @ TO RETURN 
TO MAIN MENU": 

t IFX#@THENCLS 'GOTO230 

‘ IFX#1THENI210 
1216 CLS'PRINT"CALL ADORESS FILECS): 
THIS PROCEDURE ALLOWS THE USER TO CALL THE ADDRESS FILE(S) FROM 
CASSETTE-TAPE DATA FILES. " 
1220 PRINT 
1238 PRINT" VERIFY ADDRESS FILECS): 
THIS PROCEDURE ALLOWS THE USER TO VERIFY THE ADDRESS FILECS). 
THIS IS USED WHEN THE USER WISHES TO SEARCH FOR A PARTICULAR 
NAME, ADDRESS AND PHONE NUMBER. " 
1240 PRINT: INPUT"TO CONTINUE. PRESS 1, ELSE PRESS @ TO RETURN 
TO MAIN MENU"; X 

‘ IFX@@THENCLS : GOTO230 

t IFX*1THENGOTO1250 
125@ CLS'PRINT"PRINT ADDRESS FILE(S): 


THIS FUNCTION ALLOWS THE USER TO GET A HARD COPY OF THE FILES 
EITHER ON PRINTER PAPER, OR STICKY LABELS FOR ENVELOPES. " 
1266 PRINT 

1270 PRINT"HELP: 


THIS FUNCTION. " 
1280 PRINT 
1290 PRINT"QUIT: 


END THE PROGRAM. " 
1308 PRINT 
1318 INPUT"TO RETURN TO MENU, PRESS <ENTER>"s 
‘CLS 
'GOTO238 
9999 CLS: 
'POKE16396, 201 
‘END 


Australia's Top 
Motorcycle Monthly 
Bee ee | a\o C 


ON SALE AT YOUR NEWSAGENT EVERY MONTH 


TRS-80 


MATH LAUNCH 


Math Launch is an educational 
game featuring high-res graphics, 
music and sound. The aim of the 
game is to build a rocket and 
launch it by answering multi- 
plication questions. There is also 
a choice of three skill levels. 
John Pospisil 
Bulli NSW 
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be) 
? 
18 
096 
1000 
1818 
1815 
1822 
1838 
1048 
1858 
1860 
1870 
1980 
1885 
1086 
188? 
1898 
1895 
1188 
1118 
1120 
1138 
114@ 
1158 
1162 
1502 
15901 
1582 
1583 
1584 
1585 
1567 
1512 
1520 
1538 
1540 
1545 
1546 
1550 
1555 
1588 
1590 
1600 
1612 
16228 
1630 
1640 
165 
1880 
1805 
1818 
1820 
1830 
1840 
1858 
1861 
1862 
187 
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CLS 


CHAR63;, GBB@BE@3CBB3C 


GOTO100@ 
NEXT 
GOSUBS88A8 
GOSUB9S888 
CLS 


PRINT" WHICH SKILL LEVEL?" 


PRINT 
PRINT" 
PRINT 
PRINT" 
PRINT 
PRINT" 


CAJ VERY EASY" 


(BJ) INTERMEDIATE" 


€C) TOUGH" 


FORN=1T01@ 


PRINT 
NEXT 
IFPEEKC29 
GOTO1898 
IFPEEKC25 
IFPEEKC25 
IFPEEKC18 


J=1THEN116@ 


J=1 7 THENA=7 
J=6THENA=15 
J=72THENA=40 


FORN=1T020 


PRINT 
NEXT 
IFA=@THEN 
REM SREEN 


CHAR180,FFC3AS9999ASC3FF 


1828 


FORN=22T023 
FORM=147T024 
PLOTN;M, 18 


NEXT 
NEXT 
FORN=257T0O 
PLOTN, 24; 
NEXT 
FORN=18T0 
PLOTN, 24, 
NEXT 
PLOT19,;22 


a7 
202 


20 
Zoe 


» 200 


PLOT19,23, 251 


POKE219;2 


08 


POKE218,; 228 


PRINT"LET’S START BUILDING 2" 


FORN=17T02 
NEXT 
POKE218,2 
PRINT" 
U=@ 

REM QUEST 


38 


28 


TON“ANSWER 


TFU=1 1 THENGOSUB438@ 


B=RND(CA) 


C=RNDCAtS) 
POKE219, 288 
POKE218, 238 


PRINTB 3" 


INPUTT$ 
D=VALCT$) 


M5C3 


IFD=CXBTHEN28G0 


1882 
1838 
19380 
1318 
1911 
1912 
es ig 
13914 
ips REs) 
1315 
Bose 
lee FA") 
1338 
1358 
196d 
=) abs) 
1978 
373 
1989 
1985 
L386 
1987 
L38s 
1998 
1395 
2082 
2085 
2019 
2028 
2838 
2840 
2588 
2512 
2528 
2538 
2048 
3808 
3812 
3820 
3838 
3188 
3118 
3120 
3138 
3208 
3218 
3228 
3238 
3388 
331 
3329 
3336 
34286 
3412 
3420 
3438 
3588 
3518 
3528 


SOUND2 34,534,1434 
SOUND2 33,533,1433 
SOUND2 31553191454 
SGUND2 34,534,1434 
SOUND2 53,9353,1733 
SOUND2 $15.7 52 5265.1 
SOUND2 33, 733,1633 
SOUND2 31,55151451 
SOUND2 33,533,1433 
SOUND2 515,45;1,12351 
SOUND2 57,537,14527 
FORN=13T023 
FORM=25T027 
PLOTM,N, 32 

NEXT 

SOUNDN 32 

NEXT 

U=8 

POKE219, 288 
POKE218, 228 
PRINT'AH WELL,LETS START AGAIN" 
FORN=1TO03@@ 

NEXT 

GOSUBSa@aa 
GOTO188e 

REM 
IFU=11THEN41@@ 
GOSUB3@8@+U* 192 
GOSUBS9eea 

U=U+1 

GOTO182aa 
FORN=1T0256 
POKE4@98,N 
FORM=1T02@ 

NEXT 

NEXT 

PLOT25; 23; 96 
PLOT26, 23,97 
PLOT27, 23,98 
RETURN 
PLOT25, 22, 104 
PLOT26, 22,195 
PLOT27, 22, 186 
RETURN 
PLOT25, 21, 1@7 
PLOT26, 21,187 
PLOT27, 21,187 
RETURN 
PLOT25, 28, 188 
PLOT26, 28, 189 
PLOT27, 28, 188 
RETURN 
PLOT25, 19, 188 
PLOT26, 193,119 
PLOT27, 19, 188 
RETURN 

PLOT25, 18,113 
PLOT26, 18,112 
PLOT27, 1934 3 


POCKET PROGRAMS 


TRS-80 


353@ RETURN 4330 PRINT" 904@ CHARI@S,FFC3C3C3C3C3 
3688 PLOT25,17,113 4340 NEXT 98058 CHAR] @6,FFC@CBCBCECA 
36108 PLOT26,17,114 4350 RETURN 39068 CHARIG?, GBBQBBFFFFFFFFFF 
3620 PLOT27,17; 113 5088 POKE219, 208 9876 CHAR! @8, 38 

3638 RETURN 590198 POKE218, 228 9088 CHAR1@9, 8@8B3C3C18181818 
3768 PLOT25, 16,111 9828 PRINT" 39099 CHAR! 10, 1800081C20180438 
371@ PLOT27,16,111 5@3@ RETURN 910@ CHARI12, 2424000024242424 
3713 PLOTZ6y 1. 6,.b111 6600 SOUNDZ26 33 9118 CHARI 13,02 

3728 RETURN 6885 SOUND21 32 3120 CHARI 14; 48800000001 8243C 
3888 PLOT25, 15,120 601@ SOUND21 51 9125 CHARI 11,F OF QF OF GQF OF OF OF 
3810 PLOT26,15, 1908 6815 SOUND23;3 91306 CHAR] 20, OF OFIFIFSFSFAFFF 
3820 PLOT27,;15,121 6820 SOUND21 53 314@ CHAR121,FQFQOF8F8FCFCFEFF 
3838 RETURN : 6825 SOUND! 33 9158 CHAR! 22, GF @F OF OF BF OF BF BF 
3908 PLOT25, 14,122 6838 SOUNDS 3331933,2533 916@ CHAR123,F OF OFGFOFOFGFOFS 
391@ PLOT26, 14,124 6048 SOUND2 53,183;3;,2633 9178 CHAR] 24,FFC3C3C3FFFFFFFF 
3926 PLOT27,14,123 6058 FORN=1T028@ 3188 CHAR] 28, BB@BBBOVO03030F BF 
3930 RETURN 6868 NEXT 9135 CHARI] 29, @@3C7EFFFFFFFFFF 
8993 (END 6078 PRINT"PRESS ANY KEY FOR NEW GAME" 39288 CHAR] 30, GBQBCBBOCUCOFOFO 
4808 PLOT25,13,128 608@ FORN=1T01@ 3205 CHAR2ZO@, B@BOFFASSAFF 
491@ PLOT26,13,;129 6698 PRINT 9218 RETURN 

4620 PLOT27,13, 138 610@ NEXT 9888 COLOR@, 13 

4038 RETURN 6118 IFPEEK(C29)=1THENRUN 3818 COLOR13,;,2,5 

4188 FORN=18TO2@ 6120 GOTO6119 3826 COLORI4,2,16 

411@ PLOTN; 24, 32 8000 FORN=1TO255 3830 COLOR15,2,15 

411. NEAT 8018 POKE4@98,;N 9835 COLOR16,16,;5 

4013 PLOTTSs:23; 32 8028 FORM=1T05@ 384@ COLOR17,2,;,5 

9128 PLOT19, 22, 32 8838 NEXT 3845 COLOR26,2,5 

4125 FORM=13T024 8640 NEXT 3846 COLOR32,11,;,5 

4126 PLOT22,M, 32 8933 END 3858 FORN=67T012 

4127 PLOT23,M, 32 900@ CHARS6,FFOFQFIF IF 3F3F 7F 3868 COLORN;2;5 

4128 NEXTM 39001 CHARS?, OBFFSAASFF 3870 NEXT 

4130 GOSUBS@@a 9002 CHAR2S@, 8101018303@E1E3E 9877 COLOR1,2,5 

4135 COLOR26,7,5 9003 CHAR2S1, 3E76F 6B6G60F OF BF 3880 COLORS, 2,5 

41408 CHAR2@@,F FOF ?F 7762 9004 CHAR], 8081422418244281 3885 COLOR23,2,;5 

4145 POKE219,21@ 9005 CHAR2S2,FFFFFFFFFFFFFFFF 3908 RETURN 

415@ POKE218, 226 9018 CHARS?,FFFFFFFFEFFFFFFF 33997 POKE4898, 268 

4155 POKE4@98, 9 9020 CHARS8,FFF@FOFS8SFS8FCFCFE 3998 POKE4092,9 

4160 FORN=1T024 9038 CHAR1@4,FFQ383838383 3993 POKE4@98, 207 

4178 PRINT 

41808 NEXT 


41390 POKE219, 209 

42080 POKE218,68 

4210 CHAR2, COAGIB4F 388CB83 
4220 CHARS, GB@BO0OFQ1018FB 
4230 CHAR4, O38509F 20C30CO8 
4240 CHARS, G@GB0BGF B8G80F 
4250 PRINT" WELL DONE" 
4255 FORN=2T01@ 

4256 POKE4098,N 

4260 FORM=1TO020 

42706 NEXT 

4280 NEXT 

4298 SOUND@ 58 

4295 GOTO6088 

4299 END 

4300 FORN=1T020 

4305 POKE2Z18, 10@ 

4310 PRINT"DATA FOR LAUNCH" 
4320 POKE218, 100 


POCKET PROGRAMS 
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Programs are listed according to page numbers under the computers or lan- 
guages for which they are written; these are listed alphabetically. 


Apple Macintosh 


PYEQUGHICY FLISTOST AI. cisco dares ee 59 
Amstrad 

Bitecycle Surround ooo cccccses esses esses essesesesevsesevststeeteteeeeees 47 
BASIC 

Sorting out the Sorts occ ccccccecscsvessececsescsnsnsesseseeveteneee 68 

SUDO, * cin tctclnteteasatertsn sa ctnsnd seston naveneteametustuaias nce oan smahony aie 71 
BBC 

BOUT airaes conse suse eces a esnec en ected ea arpa a end eed ae dora tlen deat 719 

LOAN, PRIN scasisce cas csctees tretetetautpult ase sside bande nctametuaa Setcememenetatas 81 
Commodore 64 

Message ENcryptor ooo. ccccccceccseccssescsecsevevsevisrseseeserens 27 

WETGEINOSS secs es crated siete cageaaa ton te en te ceala ets inet Wh tt ae 3] 

CIEY BOM GE taht: darth dee tarda indies daueeiaduamienle asus 75 

DiaMOnd MINED oo. cccccccccecccesecesececncevececscsesescecsesesescsvsvavsnevenseees 86 

Compatibility Analysis ooo. ccecceessescsreeetsessstetesesese 87 
Hitachi Peach 

TVS dS” ieee scan teseter sitet prea ett aorta tetas 78 
Microbee 

6 (0 cic \ lee aenareee ete er nea ete one RMT Ae eRe Ren RE te OTe een 28 

Golden Eagle Pokies oo... ceccccscscsssseeeseststssestsssesteseseees 4] 

High-res ON SCre@N 2 oii cccccccccccecssseescsesscsvsseecsesesavsusnseveveseacsseen 45 

DWE cscs op gaat aneigetctiacastmucess Soret ers ovtng Gavayntoncyo con euaieadeakemud aetna. 49 


RSI cr ctencersacaect ease aceecessoateed ge Oh carn aledarceueacteeatone a ataen eceuetton daatateal 51 

POCKET P22 Oe ag sccnin ire eects lapse ces tise naa Neste te pel cia aca 54 

CUS ie A pees dacetcle snntecrte: teammate etter ata de dctae teense areca taaaeneteg: 70 

BE CRG s 2 ce tcrrahete Rete etesad eur dciaets eto etc wast aca wedi lee sede 76 

Musical Microbe e@ oooccccceccccccccceccccsecseseusesseceecsescsssceseatsavsctavsceneeees 84 

MOFOROI KE TANS) cc cui ct lescacactcceu uri ascitlteaadimastat Ace unk heel en ateanse? 89 

(Gol 6) Gea seee tr at een ROTC Co EEO ane RCT iy ree In NSrenEn Rn TSN eT RITE yee 90 
Sega 

Ae BST GaN T= | QPCR OT Ean NTT OR Pee Ue ee en er CEES OL ETT 56 
Sharp MZ-700 

1s Seen ete eo ee oe en ee 29 
TRS-80 

NABI S Ee srcctecelasearcticcneeae abe aceadeande ctr anscaeeeenucronneteeh ance te ceneennce 93 

ae UHC shee stinccare cr acauteus ios Miata talate ee etus Mees, eee dha 96 
TRS-80 MCIO 

TOWET Ol AMON. i2oertecslose be sect wheter aise rnpedd a eae eet 39 

WOTSO: FUCOL sas feet tesice tities he, Seda att emun e nedb ange bettas 48 
VZ200 

CASSELLE IAS: sieaielet osccy tet ctn ciety eed aud send asides Raecsscbenoncees 42 

MOrS@: TULL sisi s haha tise senartetanconoidugudedees otoalaateaterahevecdesmerene: 48 

Va crate creatarte te Ae Areas tetas the datas cae ane mice brenda seas. 66 

NUMIDEL SIG ccsosts ssc cacao ee canis oer eon ceanayictuacvntolmndeabcruenss: 80 

BICCUIC TUS: ssesicseacstceusstesesteaacckssiasraschastesnboaneatnedgencsiesehenesiun nate Ree 80 

Number Sequence oiiiicccccccccccccccssssssssessseseeescsesesestesscstecseseaseceesceveveee 92 


. . . an innovative new series of 
specialist magazines for today’s homemakers . . . 


LIFESTYLE, THE SERIES THAT GIVES YOU MORE — 
MORE IDEAS, MORE INSPIRATION, MORE INFORMATION 


